tests/bugs/vis/ger61351_4

   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 4    "
   8 puts "==============="
   9 puts ""
  10 puts "=================================="
  11 puts "It takes visual check for this BUG"
  12 puts "=================================="
  13
  14 vinit
  15
  16 box b 30 20 10
  17 GER61351 b 0 0 255
  18 vfit
  19 QAUpdateLights
  20
  21 set x_coord 89
  22 set y_coord 363
  23
  24 checkcolor $x_coord $y_coord 0 1 1
  25
  26 if {$stat != 1} {
  27    puts "Error : Box color is NOT 0 0 1"
  28 }
  29
  30 set only_screen 1