tests/bugs/caf/bug355

   1 puts "==========="
   2 puts "OCC355"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D BinOcaf
   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