[occt.git] / tests / heal / direct_faces / end

puts [directfaces result a]
set s [statshape result particul]
puts $s

set indsur 0

set rx [regexp "(\[0-9\]+)\\s+indsur *: *Indirect Surface" $s full indsur]

if { $indsur != 0 } {
  puts "Error: $indsur Indirect Surface after directfaces operation."
}
Commit	Line	Data
40093367	1	puts [directfaces result a]
	2	set s [statshape result particul]
	3	puts $s
	4
	5	set indsur 0
	6
	7	set rx [regexp "(\[0-9\]+)\\s+indsur : Indirect Surface" $s full indsur]
	8
	9	if { $indsur != 0 } {
	10	puts "Error: $indsur Indirect Surface after directfaces operation."
	11	}