ae1b6432ff904cb067fed72d3a1903fc197b0e27
[occt.git] / tests / bugs / modalg_6 / bug27769
1 puts "========"
2 puts "OCC27769"
3 puts "========"
4 puts ""
5 #################################################
6 # BRepOffsetAPI_MakePipeShell produces a face 
7 # based on degenerated toroidal surfaces
8 #################################################
9
10 restore [locate_data_file bug27769_W5_slot.brep] w
11 restore [locate_data_file bug27769_A4_slot.brep] e
12
13 wire p e
14 mksweep p
15 addsweep w
16 buildsweep r
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 }