tests/bugs/vis/bug597_5

   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 QAMoveTo 250 190
  29 QASelect 250 190
  30 QAShiftSelect 180 350
  31 QAMoveTo 250 190
  32 QAMoveTo 180 350
  33 QASelect 390 390
  34 QAShiftSelect 250 190
  35 QAUpdateLights
  36
  37 set x_coord 335
  38 set y_coord 331
  39
  40 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  41
  42 if {$stat != 1} {
  43    puts "Error : The right face is NOT Selected by Shift Select command"
  44 }
  45
  46 QAShiftSelect 180 350
  47 QAUpdateLights
  48
  49 set x_coord 101
  50 set y_coord 347
  51
  52 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  53
  54 if {$stat != 1} {
  55    puts "Error : The left face is Selected by Shift Select command"
  56 }
  57
  58 set only_screen 1
  59