tests/bugs/vis/ger61351_2

   1 puts "==============="
   2 puts "    GER61351   "
   3 puts "     CASE 2    "
   4 puts "==============="
   5 puts ""
   6 puts "=================================="
   7 puts "It takes visual check for this BUG"
   8 puts "=================================="
   9
  10 vinit
  11
  12 GER61351 0 255 0
  13
  14 set x_coord 200
  15 set y_coord 200
  16
  17 #checkcolor $x_coord $y_coord 0 1 0
  18 if {"[vreadpixel $x_coord $y_coord rgb name]" != "GREEN"} {
  19    puts "Error : Background color is NOT 0 1 0."
  20 }
  21
  22 checkview -screenshot -3d -path ${imagedir}/${test_image}.png