puts "==========="
puts "OCC282"
puts "==========="

pload QAcommands

NewDocument D MDTV-Standard

circle acirc 0 0 0 20
mkedge anEdge acirc
wire aWire anEdge

plane pl 0 0 1
mkface aface pl aWire

NameImportShape D 0:1 aface

if [catch { CheckNaming D 0:2 1 Label 0:1 1 1 1 } res] {
  puts "OCC282: Error"
}

