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

puts "================="
puts "OCC361"
puts "BUC60995"
puts "================="

pload QAcommands

NewDocument D BinOcaf

if { [catch { OCC361 D }] } {
    puts "OCC361: Error"
}

Close D
Commit	Line	Data
a87752f3	1	puts "================="
	2	puts "OCC361"
	3	puts "BUC60995"
	4	puts "================="
	5
	6	pload QAcommands
	7
e837410d	8	NewDocument D BinOcaf
a87752f3	9
	10	if { [catch { OCC361 D }] } {
	11	puts "OCC361: Error"
	12	}
	13
d01cc61d	14	Close D
d01cc61d	15