0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / buc60817
1 puts "==========="
2 puts "BUC60817"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D BinOcaf
8 UndoLimit D 100
9
10 NewCommand D
11
12 set ResultError [BUC60817 D]
13 if { ${ResultError} != 0 } {
14     puts "BUC60817: Error = $ResultError"
15 }
16