puts "TODO OCC12345 ALL: An exception was caught" puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" puts "TODO OCC12345 ALL: TEST INCOMPLETE" puts "===============" puts " GER61351 " puts " CASE 5 " puts "===============" puts "" puts "==================================" puts "It takes visual check for this BUG" puts "==================================" vinit box b 20 10 30 GER61351 b 0 255 255 vfit set x_coord 89 set y_coord 363 checkcolor $x_coord $y_coord 0 1 1 if {$stat != 1} { puts "Error : Box color is NOT 0 1 1" } checkview -screenshot -3d -path ${imagedir}/${test_image}.png