[occt.git] / tests / bugs / caf / bug282

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"
}
Commit	Line	Data
a87752f3	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