1 puts "================================================="
2 puts "OCC30714: UnifySameDomain corrupts original shape"
3 puts "================================================="
6 restore [locate_data_file bug30714.brep] s
14 checknbshapes result -solid 1 -shell 1 -face 10 -wire 12 -edge 24 -vertex 16
16 set tolres [checkmaxtol result]
18 if { ${tolres} > 1.000008e-07} {
19 puts "Error: bad tolerance of result"
22 checkprops result -v 1.20292