Commit | Line | Data |
---|---|---|
61c421bf | 1 | puts "=================" |
2 | puts "OCC644" | |
3 | puts "SAM1513" | |
4 | puts "=================" | |
5 | puts "" | |
6 | ||
7 | NewDocument D | |
8 | UndoLimit D 10 | |
9 | ||
10 | NewCommand D | |
11 | SetVariable D 0:1 0 mm | |
12 | SetRelation D 0:2 x=10 0:1 | |
13 | ||
14 | NewCommand D | |
15 | SetRelation D 0:2 x=20 0:1 | |
16 | ||
17 | NewCommand D | |
18 | Undo D | |
19 | Redo D | |
20 | Undo D | |
21 | ||
22 | set RelationList [DumpRelation D 0:2] | |
23 | ||
24 | if {[llength ${RelationList}] <= 10} { | |
25 | puts "OCC644: OK" | |
26 | } else { | |
27 | puts "OCC644: ERROR" | |
28 | } | |
29 | ||
30 |