git.sur5r.net Git - openocd/blob - tcl/test/selftest.cfg

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