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