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

puts "================="
puts "OCC381"
puts "================="
puts ""

pload QAcommands

NewDocument D MDTV-Standard

######################################################
if { [catch { OCC381_SaveAs D ${imagedir}/OCC381.std}] } {
    puts "OCC381: Error" 
} else {
    catch {exec chmod 777 ${imagedir}/OCC381.std}
    file delete ${imagedir}/OCC381.std
}
Commit	Line	Data
a87752f3	1	puts "================="
	2	puts "OCC381"
	3	puts "================="
	4	puts ""
	5
	6	pload QAcommands
	7
	8	NewDocument D MDTV-Standard
	9
	10	######################################################
	11	if { [catch { OCC381_SaveAs D ${imagedir}/OCC381.std}] } {
	12	puts "OCC381: Error"
	13	} else {
e54706ed	14	catch {exec chmod 777 ${imagedir}/OCC381.std}
a87752f3	15	file delete ${imagedir}/OCC381.std
	16	}
	17