6d1dc3e8 |
1 | puts "===========" |
2 | puts "OCC25112" |
3 | puts "===========" |
4 | puts "" |
5 | ########################################################################### |
6 | # Undo of modification of the attribute TDataStd_IntPackedMap works wrong |
7 | ########################################################################### |
8 | |
9 | NewDocument D |
10 | UndoLimit D 10 |
11 | SetIntPackedMap D 0:1 1 319 |
12 | puts "initial: [GetIntPackedMap D 0:1]" |
13 | |
14 | OpenCommand D |
15 | ChangeIntPackedMap_Add D 0:1 344 |
16 | ChangeIntPackedMap_Rem D 0:1 319 |
17 | CommitCommand D |
18 | puts "after changes: [GetIntPackedMap D 0:1]" |
19 | |
20 | Undo D |
21 | |
22 | set map [GetIntPackedMap D 0:1] |
23 | puts "after undo: $map" |
24 | |
25 | if {$map != "319"} { |
26 | puts "ERROR: OCC25112 is reproduced. Expected map content is 319" |
27 | } |