Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug381_2
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 {
14     file delete ${imagedir}/OCC381.std
15 }
16