tests/bugs/vis/bug138_2

   1 puts "========"
   2 puts "OCC138"
   3 puts "========"
   4
   5 vinit
   6 set info [OCC138LC]
   7
   8 set ll [llength ${info}]
   9 if {${ll} < 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