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 set only_screen 1