tests/bugs/vis/buc60738

   1 ### by apn (no regresion in CR23352_3
   2 ###if { [array get env os_type] != "" } {
   3 ###    set os $env(os_type)
   4 ###}
   5 ###if { [string compare $os "windows"] == 0 } {
   6 puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
   7 puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash"
   8 ###     by apn: Image is not correct on WNT
   9 ###}
  10
  11 puts "========================"
  12 puts "BUC60738"
  13 puts "========================"
  14 puts ""
  15 puts "=================================="
  16 puts "It takes visual check for this BUG"
  17 puts "=================================="
  18
  19 vinit
  20 BUC60738
  21 vfit
  22 vsetdispmode 1
  23
  24
  25 set x_coord 261
  26 set y_coord 314
  27
  28 checkcolor $x_coord $y_coord 0 1 0
  29
  30 if {$stat != 1} {
  31    puts "Error : The style of edge is NOT dash"
  32 }
  33
  34 set only_screen 1