tests/bugs/vis/bug23539_2

   1 puts "TODO ?OCC12345 ALL: An exception was caught"
   2 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
   4
   5
   6 puts "============"
   7 puts "CR23539"
   8 puts "============"
   9 puts ""
  10 #############################
  11 ## Test case for polygonal shift selection
  12 #############################
  13
  14 box a 10 10 10
  15 box b 50 50 50 10 10 10
  16 vinit
  17 vdisplay a b
  18 vfit
  19 vselmode 2 1
  20 vselect 0 0
  21 vselect 60 300
  22 vselect 300 200 300 60 400 60 407 150 1
  23
  24 set NbSelected1 [vnbselected]
  25 if { ${NbSelected1} != 13 } {
  26   puts "Error : Polygonal shift selection doesn't work properly"
  27 }
  28
  29 vselect 350 120 1
  30
  31 set NbSelected1 [vnbselected]
  32 if { ${NbSelected1} != 12 } {
  33   puts "Error : (case 2)"
  34 }
  35
  36 set only_screen 1