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