0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug387
1 puts "==========="
2 puts "OCC387"
3 puts "SAM1452"
4 puts "==========="
5
6 NewDocument D BinOcaf
7 UndoLimit D 10
8 NewCommand D
9 SetVariable D 0:1 0 a
10 SetRelation D 0:1 a=10 0:1
11 SetReal D 0:1 10
12
13 NewCommand D
14 SetRelation D 0:1 a=20 0:1
15 SetReal D 0:1 20
16 NewCommand D
17 Undo D
18 set Res [DumpRelation D 0:1]
19
20 if { [regexp "a=20" $Res] == 1 } {
21     puts "OCC387: Error "
22 }
23