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