jtag/kitprog: switch to command 'adapter serial'

[fw/openocd] / tcl / test / selftest.cfg

diff --git a/tcl/test/selftest.cfg b/tcl/test/selftest.cfg
index d1a00aedf153b60f07389832610d9e49c1142141..0331b482f53251ee30892967c822159c527a546d 100644 (file)
--- a/tcl/test/selftest.cfg
+++ b/tcl/test/selftest.cfg
@@ -1,17 +1,17 @@
-\r
-add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"\r
-\r
-proc selftest {tmpfile address size} {\r
-\r
-   for {set i 0} {$i < $size } {set i [expr $i+4]} {\r
-       mww [expr $address+$i] $i\r
-   }\r
-\r
-   for {set i 0} {$i < 10 } {set i [expr $i+1]} {\r
-    puts "Test iteration $i"\r
-    dump_image $tmpfile $address $size\r
-       verify_image $tmpfile $address bin\r
-       load_image $tmpfile $address bin\r
-   }\r
-\r
-}
\ 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}]} {
+    echo "Test iteration $i"
+    dump_image $tmpfile $address $size
+       verify_image $tmpfile $address bin
+       load_image $tmpfile $address bin
+   }
+
+}