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