From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Thu, 14 May 2009 10:52:41 +0000 (+0000)
Subject: selftest wip
X-Git-Tag: v0.2.0~727
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=0bb9c5de63410a31ef68e004971038fd2c130bf4;p=openocd

selftest wip

git-svn-id: svn://svn.berlios.de/openocd/trunk@1783 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---

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