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