X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Ftest%2Fselftest.cfg;h=be420ca0ca9c8269c729fa5b23e6c3b638e4c19f;hb=0ea9a66239778db6939bd05505f3b580aa313cab;hp=d1a00aedf153b60f07389832610d9e49c1142141;hpb=dbbc9c41f7db210b0a4e226540a28e0a8a5019bf;p=fw%2Fopenocd

diff --git a/tcl/test/selftest.cfg b/tcl/test/selftest.cfg
old mode 100644
new mode 100755
index d1a00aedf..be420ca0c
--- 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]} {
+    echo "Test iteration $i"
+    dump_image $tmpfile $address $size
+	verify_image $tmpfile $address bin
+	load_image $tmpfile $address bin
+   }
+
+}