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 |