0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_5 / bug24140
1 puts "============"
2 puts "OCC24140"
3 puts "============"
4 puts ""
5 ######################################################
6 # Endless loop in BRepAlgoAPI_Section
7 ######################################################
8
9 pload XDE
10
11 ReadStep D [locate_data_file bug24140_bug663.stp]
12 XGetShape sh1 D 0:1:1:1
13 XGetShape sh2 D 0:1:1:2
14
15 bsection result sh1 sh2
16
17 set length 557.6
18
19 checknbshapes result -vertex 1 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3
20 set 2dviewer 1