352ffd73 |
1 | puts "==================================" |
2 | puts "BUC60569" |
3 | puts "OCC597" |
4 | puts "==================================" |
5 | puts "" |
6 | puts "==================================" |
7 | puts "It takes visual check for this BUG" |
8 | puts "==================================" |
9 | puts "" |
10 | |
11 | restore [locate_data_file buc60569a.rle] result |
12 | tclean result |
13 | vinit |
14 | |
15 | checkshape result |
16 | |
17 | BUC60569 result |
18 | vfit |
19 | |
4754e164 |
20 | vselect 250 190 |
21 | vselect 180 350 1 |
22 | vmoveto 250 190 |
23 | vmoveto 180 350 |
24 | vselect 390 390 |
25 | vselect 250 190 1 |
26 | vselect 180 350 1 |
27 | vmoveto 250 190 |
28 | vmoveto 180 350 |
352ffd73 |
29 | |
30 | set x_coord 335 |
31 | set y_coord 331 |
32 | |
33 | checkcolor $x_coord $y_coord 0.8 0.8 0.8 |
34 | |
35 | if {$stat != 1} { |
36 | puts "Error : The right face is NOT highlighted by Move To command." |
37 | } |
38 | |
5747059b |
39 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |
352ffd73 |
40 | |