[occt.git] / tests / bugs / vis / bug138_2

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