projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
88a5647c3ad8e259216f60645779f4395cddd1ef
[occt.git]
/
tests
/
bugs
/
caf
/
bug352
1
puts "==========="
2
puts "OCC352"
3
puts "==========="
4
5
pload QAcommands
6
7
NewDocument D MDTV-Standard
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
}