+++ /dev/null
-puts "========"
-puts "OCC138"
-puts "========"
-
-vinit
-set info [OCC138LC]
-
-set ll [llength ${info}]
-if {${ll} < 5 } {
- puts "OCC138: Error (case 1)"
-} else {
- regexp {No of selected += +([-0-9.+eE]+)} $info full NbCurrents
- if {${NbCurrents} != 3 } {
- puts "OCC138: Error (case 2)"
- }
-}
-
-vfit
-checkview -screenshot -3d -path ${imagedir}/${test_image}.png