1 puts "TODO ?OCC12345 ALL: An exception was caught"
2 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
10 #############################
11 ## Test case for polygonal shift selection
12 #############################
15 box b 50 50 50 10 10 10
22 vselect 300 200 300 60 400 60 407 150 1
24 set NbSelected1 [vnbselected]
25 if { ${NbSelected1} != 13 } {
26 puts "Error : Polygonal shift selection doesn't work properly"
31 set NbSelected1 [vnbselected]
32 if { ${NbSelected1} != 12 } {
33 puts "Error : (case 2)"