Adding test cases from grid chl
[occt.git] / tests / bugs / caf / buc60790
1 puts "==========="
2 puts "BUC60790"
3 puts "BUC60836"
4 puts "==========="
5
6 pload QAcommands
7
8 NewDocument D MDTV-Standard
9 UndoLimit D 100
10
11 set ResultError [BUC60836 D]
12 if {${ResultError} != 0 } {
13     puts "BUC60790: Error = $ResultError"
14 }
15