tests/bugs/vis/bug597_6

   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 vselect 250 190
  30 vselect 180 350 1
  31 vmoveto 250 190
  32 vmoveto 180 350
  33 vselect 390 390
  34 vselect 250 190 1
  35 vselect 180 350 1
  36 vmoveto 250 190
  37
  38 set x_coord 335
  39 set y_coord 331
  40
  41 checkcolor $x_coord $y_coord 0 1 1
  42
  43 if {$stat != 1} {
  44   puts "Error : The right face is NOT highlighted by Move To command."
  45 }
  46
  47 set only_screen 1