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

puts "=============="
puts "OCC158"
puts "=============="

NewDocument D MDTV-Standard

##################################################################
if { [catch {set res [SaveAs D ${imagedir}/OCC158.std]}] != 0 } {
  puts "OCC158: Error"
} else {
    file delete ${imagedir}/OCC158.std
}
Commit	Line	Data
a87752f3	1	puts "=============="
	2	puts "OCC158"
	3	puts "=============="
	4
	5	NewDocument D MDTV-Standard
	6
	7	##################################################################
	8	if { [catch {set res [SaveAs D ${imagedir}/OCC158.std]}] != 0 } {
	9	puts "OCC158: Error"
	10	} else {
	11	file delete ${imagedir}/OCC158.std
	12	}
	13
	14
	15