tests/bugs/vis/ger61351_1

   1 puts "==============="
   2 puts "    GER61351   "
   3 puts "=================================="
   4 puts "CASE 1 :takes visual check        "
   5 puts "=================================="
   6
   7 vinit
   8 GER61351 RED2
   9
  10 set x_coord 200
  11 set y_coord 200
  12
  13 checkcolor $x_coord $y_coord 0.93 0 0
  14
  15 if {$stat != 1} {
  16    puts "Error : Background color is NOT RED2."
  17 }
  18
  19 set only_screen 1