tcl/test/selftest.cfg

   1
   2 add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
   3
   4 proc selftest {tmpfile address size} {
   5
   6    for {set i 0} {$i < $size } {set i [expr $i+4]} {
   7        mww [expr $address+$i] $i
   8    }
   9
  10    for {set i 0} {$i < 10 } {set i [expr $i+1]} {
  11     puts "Test iteration $i"
  12     dump_image $tmpfile $address $size
  13         verify_image $tmpfile $address bin
  14         load_image $tmpfile $address bin
  15    }
  16
  17 }