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

puts "==========="
puts "OCC355"
puts "==========="

pload QAcommands

NewDocument D MDTV-Standard

NameCylinder D 0:1 20 100 0 Solid
NamePrism D 0:2 0:1:2 50 0 0 1

if [catch { CheckNaming D 0:3 1 Label 0:2 1 1 1 } res] {
  puts "OCC355: Error"
}
Commit	Line	Data
a87752f3	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