0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug352
1 puts "==========="
2 puts "OCC352"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D BinOcaf
8
9 NameBox D 0:1 100 100 100
10 box abox 100 100 100
11 ttranslate abox 100 0 50
12 NameImportShape D 0:2 abox
13
14 NameGlue D 0:3 0:1 0:2
15
16 if [catch { CheckNaming D 0:4 1 Label 0:3 1 1 1 } res] {
17   puts "OCC352: Error"
18 }