5 #######################################################################
6 # BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
7 #######################################################################
9 restore [locate_data_file bug27769_W5_slot.brep] pr
10 restore [locate_data_file bug27769_A4_slot.brep] sp
21 set check [regexp "SphericalSurface" $info]
23 if { ${check} == 1 } {
24 puts "OK: The basic surface is spherical surface."
26 puts "Faulty: The basic surface is not spherical surface."
29 set info1 [errorsweep]
31 set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error]
33 checkreal "Accuracy" $error 0 1.e-10 0