0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / step / bug25523
1 puts "============"
2 puts "OCC25523"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Fail to read back solid written to STEP
7 #######################################################################
8
9 restore [locate_data_file bug25523_bad_loopback_step.brep] a
10
11 checknbshapes a -vertex 30 -edge 54 -wire 32 -face 27 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 145 -m "Stator model"
12
13 newmodel
14 set aFile ${imagedir}/bug25523.stp
15 catch { file delete ${aFile} }
16
17 stepwrite a a ${aFile}
18
19 stepread ${aFile} b *
20 checknbshapes b_1 -vertex 30 -edge 54 -wire 32 -face 27 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 145 -m "Stator model"
21
22 tpstat c ;# reports exception
23
24 vinit View1
25 vdisplay a
26 vfit
27 vdump ${imagedir}/${casename}_1.png
28
29 vinit View2
30 vdisplay b_1
31 vfit
32 vdump ${imagedir}/${casename}_2.png