puts "========================"
puts "OCC22500"
puts "========================"
puts ""
#######################################################################
# Sewing creates invalid shape
#######################################################################

set BugNumber OCC22500

restore [locate_data_file OCC22500-bug602badsewing.brep] a 

if { [catch {sewing result 0.01 a} catch_result] } {
    puts "Faulty ${BugNumber} : function Sewing works wrongly"
}

checkmaxtol result 4.3455205172376901e-006
checknbshapes result -shell 1
checkfreebounds result 28

set square 0.0363594
set 3dviewer 0
