diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2009-05-14 10:52:41 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2009-05-14 10:52:41 +0000 |
| commit | 0bb9c5de63410a31ef68e004971038fd2c130bf4 (patch) | |
| tree | 23059326eb280ca846247e7394dff315624cede0 | |
| parent | c5e51bca0aa711c6110e9ff6d0289eff24cf35eb (diff) | |
selftest wip
git-svn-id: svn://svn.berlios.de/openocd/trunk@1783 b42882b7-edfa-0310-969c-e2dbd0fdcd60
| -rw-r--r-- | src/target/test/selftest.cfg | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/target/test/selftest.cfg b/src/target/test/selftest.cfg new file mode 100644 index 00000000..d1a00aed --- /dev/null +++ b/src/target/test/selftest.cfg @@ -0,0 +1,17 @@ +
+add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
+
+proc selftest {tmpfile address size} {
+
+ for {set i 0} {$i < $size } {set i [expr $i+4]} {
+ mww [expr $address+$i] $i
+ }
+
+ for {set i 0} {$i < 10 } {set i [expr $i+1]} {
+ puts "Test iteration $i"
+ dump_image $tmpfile $address $size
+ verify_image $tmpfile $address bin
+ load_image $tmpfile $address bin
+ }
+
+}
\ No newline at end of file |