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