Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug138_2
1 puts "========"
2 puts "OCC138"
3 puts "========"
4
5 vinit
6 set info [OCC138LC]
7
8 set length [llength ${info}]
9 if {${length} < 5 } {
10    puts "OCC138: Error (case 1)"
11 } else {
12   regexp {No of selected += +([-0-9.+eE]+)} $info full NbCurrents
13   if {${NbCurrents} != 3 } {
14      puts "OCC138: Error (case 2)"
15   }
16 }
17
18 vfit
19 set only_screen 1