Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug138_1
1
2 puts "========"
3 puts "OCC138"
4 puts "========"
5 puts ""
6 #######################################
7 ## Viewer problem: Selection of objects on global context
8 #######################################
9 vinit
10 set info [OCC138]
11
12 set length [llength ${info}]
13 if {${length} < 5 } {
14    puts "OCC138: Error (case 1)"
15 } else {
16   regexp {No of currents += +([-0-9.+eE]+)} $info full NbCurrents
17   if {${NbCurrents} != 3 } {
18      puts "OCC138: Error (case 2)"
19   }
20 }
21
22 vfit
23 set only_screen 1