Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug282
1 puts "==========="
2 puts "OCC282"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D MDTV-Standard
8
9 circle acirc 0 0 0 20
10 mkedge anEdge acirc
11 wire aWire anEdge
12
13 plane pl 0 0 1
14 mkface aface pl aWire
15
16 NameImportShape D 0:1 aface
17
18 if [catch { CheckNaming D 0:2 1 Label 0:1 1 1 1 } res] {
19   puts "OCC282: Error"
20 }
21