tests/bugs/caf/bug25112

   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 }