[occt.git] / tests / bugs / modalg / bug548

puts "========"
puts "OCC548"
puts "OCC628"
puts "========"
puts ""
##################################################################
# Function BRepTool::IsClosed returns Standard_True although argument is open shell
# Incorrect work of BRepCheck 
##################################################################

pload XDE

restore [locate_data_file CTO908_topo103-t.brep] a 

decho off

checkshape a
checkshape a b

decho on

fixshape result a 0.001

set che [checkshape result c]
if { [regexp {problems} $che] } {
   puts "Faulty OCC628"
}

set square 119630
set 2dviewer 2
Commit	Line	Data
352ffd73	1	puts "========"
	2	puts "OCC548"
	3	puts "OCC628"
	4	puts "========"
	5	puts ""
	6	##################################################################
	7	# Function BRepTool::IsClosed returns Standard_True although argument is open shell
	8	# Incorrect work of BRepCheck
	9	##################################################################
	10
	11	pload XDE
352ffd73	12
	13	restore [locate_data_file CTO908_topo103-t.brep] a
	14
	15	decho off
	16
	17	checkshape a
	18	checkshape a b
	19
	20	decho on
	21
	22	fixshape result a 0.001
	23
	24	set che [checkshape result c]
	25	if { [regexp {problems} $che] } {
	26	puts "Faulty OCC628"
	27	}
	28
	29	set square 119630
	30	set 2dviewer 2