0028661: BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject: NColl...
[occt.git] / tests / bugs / modalg_6 / bug28661_1
1 puts "============"
2 puts "OCC28661"
3 puts "============"
4 puts ""
5 #######################################################################
6 # BRepOffsetAPI_MakePipeShell throws an exception Standard_NoSuchObject
7 #######################################################################
8
9 restore [locate_data_file bug27769_W5_slot.brep] pr
10 restore [locate_data_file bug27769_A4_slot.brep] sp
11 wire sp sp
12
13 mksweep sp
14 addsweep pr
15 buildsweep r
16
17 explode r f
18 mksurface s1 r_1
19 set info [dump s1]
20
21 set check [regexp "SphericalSurface" $info]
22
23 if { ${check} == 1 } {
24    puts "OK: The basic surface is spherical surface."
25 } else {
26    puts "Faulty: The basic surface is not spherical surface."
27 }
28
29 set info1 [errorsweep]
30
31 set check [regexp {Tolerance on surfaces = ([0-9\-+Ee.]+)} $info1 str error]
32
33 checkreal "Accuracy" $error 0 1.e-10 0
34
35 setsweep -FR
36 buildsweep r1