0023985: There is no section between attached faces.
[occt.git] / tests / bugs / modalg_5 / bug23985
1 puts "========"
2 puts "OCC23985"
3 puts "========"
4 puts ""
5 ##########################################
6 ## There is no section between attached faces
7 ##########################################
8
9 set BugNumber 23985
10
11 restore [locate_data_file bug23985_b1.brep] b1
12 restore [locate_data_file bug23985_b2.brep] b2
13
14 bsection result b1 b2
15
16 set expl [explode result]
17
18 set length [llength $expl]
19 puts "Result is $length section edge"
20
21 if {$length > 0} {
22     puts "${BugNumber} OK"
23 } else {
24     puts "Faulty ${BugNumber}"
25 }
26
27 set 2dviewer 0