|
From: oharboe at B. <oh...@ma...> - 2009-05-14 12:52:47
|
Author: oharboe
Date: 2009-05-14 12:52:41 +0200 (Thu, 14 May 2009)
New Revision: 1783
Added:
trunk/src/target/test/selftest.cfg
Log:
selftest wip
Added: trunk/src/target/test/selftest.cfg
===================================================================
--- trunk/src/target/test/selftest.cfg 2009-05-14 08:44:09 UTC (rev 1782)
+++ trunk/src/target/test/selftest.cfg 2009-05-14 10:52:41 UTC (rev 1783)
@@ -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
|