0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug26061
1 puts "============"
2 puts "OCC26061"
3 puts "============"
4 puts ""
5 #######################################################################
6 # TNaming_Selector crash in select method.
7 #######################################################################
8
9 pload QAcommands
10
11 NewDocument D BinOcaf
12
13 ## 1. Build Primitive face <f> 
14 plane pl 0 0 0 0 0 1
15 mkface f0 pl -10 10 -10 10
16 set Lab900 [Label D 0:1:900]
17 BuildNamedShape D $Lab900 P f0
18
19 ## 2. Mirror f0 
20 tmirror f0 0 0 10 0 0 1
21 renamevar f0 fmir
22 GetShape D $Lab900 f0
23 set Lab901 [Label D 0:1:901]
24 BuildNamedShape D $Lab901 G f0 fmir
25
26 ## 3. Translate primitive face
27 ttranslate f0 0 0 -5
28 renamevar f0 ftr5
29 set Lab902 [Label D 0:1:902]
30 GetShape D $Lab900 f0
31 BuildNamedShape D $Lab902 M f0 ftr5
32
33 ## 4. Translate mirrored face
34 GetShape D $Lab901 fmir
35 renamevar fmir fmirtr
36 ttranslate  fmirtr 0 0 -5
37 GetShape D $Lab901 fmir
38 set Lab903 [Label D 0:1:903]
39 BuildNamedShape D $Lab903 M fmir  fmirtr
40
41 ## 5. Select the face from step 4 (mirrored & translasted)
42 set Lab904 [Label D 0:1:904]
43 GetShape D $Lab903 fSel
44 SelectShape D $Lab904 fSel
45 ## ==> No exception
46 GetShape D $Lab904 fRes
47 whatis fRes