Commit | Line | Data |
---|---|---|
352ffd73 | 1 | puts "===============" |
2 | puts " GER61351 " | |
3 | puts "==================================" | |
4 | puts "CASE 1 :takes visual check " | |
5 | puts "==================================" | |
6 | ||
7 | vinit | |
8 | GER61351 RED2 | |
352ffd73 | 9 | |
10 | set x_coord 200 | |
11 | set y_coord 200 | |
12 | ||
13 | checkcolor $x_coord $y_coord 0.93 0 0 | |
14 | ||
15 | if {$stat != 1} { | |
16 | puts "Error : Background color is NOT RED2." | |
17 | } | |
18 | ||
19 | set only_screen 1 |