Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug381_1
1 puts "================="
2 puts "OCC381"
3 puts "================="
4 puts ""
5
6 pload QAcommands
7
8 NewDocument D MDTV-Standard
9
10 ######################################################
11 catch { SaveAs D ${imagedir}/OCC381.std }
12
13 if { [catch { OCC381_Save D } ] } {
14   puts "OCC381: Error" 
15 } else {
16     file delete ${imagedir}/OCC381.std
17 }