tcl/test/selftest.cfg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

# SPDX-License-Identifier: GPL-2.0-or-later

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}]} {
    echo "Test iteration $i"
    dump_image $tmpfile $address $size
	verify_image $tmpfile $address bin
	load_image $tmpfile $address bin
   }

}