Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug355
1 puts "==========="
2 puts "OCC355"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D MDTV-Standard
8
9 NameCylinder D 0:1 20 100 0 Solid
10 NamePrism D 0:2 0:1:2 50 0 0 1
11
12 if [catch { CheckNaming D 0:3 1 Label 0:2 1 1 1 } res] {
13   puts "OCC355: Error"
14 }
15