tcl/test/selftest.cfg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
   }

}