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