0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / buc60862
1 puts "==========="
2 puts "BUC60862"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D BinOcaf
8 UndoLimit D 100
9
10 NewCommand D
11
12 vertex V1 10 20 0
13 vertex V2 20 10 0
14
15 catch {edge Shape ${V1} ${V2}}
16 catch {set ResultError [BUC60862 D $Shape]}
17
18 if { ${ResultError} != 0 } {
19     puts "BUC60862: Error = $ResultError"
20 }
21