diff options
Diffstat (limited to 'tcl')
-rwxr-xr-x[-rw-r--r--] | tcl/test/selftest.cfg | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/tcl/test/selftest.cfg b/tcl/test/selftest.cfg index d1a00aed..912d1c08 100644..100755 --- a/tcl/test/selftest.cfg +++ b/tcl/test/selftest.cfg @@ -1,17 +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 + +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 + } + +} |