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

puts "========"
puts "OCC138"
puts "========"
puts ""
#######################################
## Viewer problem: Selection of objects on global context
#######################################
vinit
set info [OCC138]

set ll [llength ${info}]
if {${ll} < 5 } {
   puts "OCC138: Error (case 1)"
} else {
  regexp {No of currents += +([-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	puts ""
	5	#######################################
	6	## Viewer problem: Selection of objects on global context
	7	#######################################
	8	vinit
	9	set info [OCC138]
	10
355c1551	11	set ll [llength ${info}]
355c1551	12	if {${ll} < 5 } {
a87752f3	13	puts "OCC138: Error (case 1)"
	14	} else {
	15	regexp {No of currents += +([-0-9.+eE]+)} $info full NbCurrents
	16	if {${NbCurrents} != 3 } {
	17	puts "OCC138: Error (case 2)"
	18	}
	19	}
	20
	21	vfit
	22	set only_screen 1