tests/bugs/vis/bug597_3

   1 if { [array get env os_type] != "" } {
   2     set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5    puts "TODO OCC12345 ALL: An exception was caught"
   6    puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   7    puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   8 }
   9
  10 puts "=================================="
  11 puts "BUC60569"
  12 puts "OCC597"
  13 puts "=================================="
  14 puts ""
  15 puts "=================================="
  16 puts "It takes visual check for this BUG"
  17 puts "=================================="
  18 puts ""
  19
  20 restore [locate_data_file buc60569a.rle] result
  21 tclean result
  22 vinit
  23
  24 checkshape result
  25
  26 BUC60569 result
  27 vfit
  28
  29 QAMoveTo 250 190
  30 QASelect 250 190
  31 QAShiftSelect 180 350
  32 QAMoveTo 250 190
  33 QAMoveTo 180 350
  34 QAUpdateLights
  35
  36 set x_coord 101
  37 set y_coord 347
  38
  39 checkcolor $x_coord $y_coord 0 1 1
  40
  41 if {$stat != 1} {
  42    puts "Error : The left face is highlighted by Move To command"
  43 }
  44
  45 set only_screen 1
  46