352ffd73 |
1 | puts "TODO OCC12345 ALL: An exception was caught" |
2 | puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" |
3 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
4 | |
5 | puts "===============" |
6 | puts " GER61351 " |
7 | puts " CASE 5 " |
8 | puts "===============" |
9 | puts "" |
10 | puts "==================================" |
11 | puts "It takes visual check for this BUG" |
12 | puts "==================================" |
13 | |
14 | vinit |
15 | |
16 | box b 20 10 30 |
17 | GER61351 b 0 255 255 |
18 | vfit |
352ffd73 |
19 | |
20 | set x_coord 89 |
21 | set y_coord 363 |
22 | |
23 | checkcolor $x_coord $y_coord 0 1 1 |
24 | |
25 | if {$stat != 1} { |
26 | puts "Error : Box color is NOT 0 1 1" |
27 | } |
28 | |
29 | set only_screen 1 |