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

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

pload QAcommands

NewDocument D MDTV-Standard

if { [catch { OCC361 D }] } {
    puts "OCC361: Error"
}
Commit	Line	Data
a87752f3	1	puts "================="
	2	puts "OCC361"
	3	puts "BUC60995"
	4	puts "================="
	5
	6	pload QAcommands
	7
	8	NewDocument D MDTV-Standard
	9
	10	if { [catch { OCC361 D }] } {
	11	puts "OCC361: Error"
	12	}
	13