Adding test cases from grid chl
[occt.git] / tests / bugs / caf / bug261
1 puts "==========="
2 puts "OCC261"
3 puts "==========="
4
5 pload QAcommands
6
7 NewDocument D MDTV-Standard
8 UndoLimit D 10
9 NewCommand D
10 SetReal D 0:1 10
11
12 NewCommand D
13 SetReal D 0:1 20
14
15 NewCommand D
16 SetReal D 0:1 30
17
18 NewCommand D 
19 SetReal D 0:1 40
20
21 Undo D
22 Undo D
23
24 OCC261 D
25
26 set Res [UndoLimit D]
27 if { [regexp " 0" $Res] != 1 } {
28     puts "OCC261: Error"
29 }
30
31