0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / ger61351_5
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
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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png