!7

static Map<S, Long> map;

//set flag structure_debug.
set flag unstructure_debug.

p {
  deleteDB();
  l_persistentLister();
  map = l_getTreeMap("German words with count");
  checkMap(0);
  map = l_getTreeMap("German words with count");
  checkMap(0);
  sleepSeconds(2);
  longMultiSet_add(map, "Hallo");
  print("Words now: " + sfu(map));
  assertEquals(1, l(map));
  
  l_persistentLister(null);
  l_dropDefaultLister();
  dbOff();
  print("\nOn disk: " + loadConceptsStructure() + "\n");
  
  db();
  l_persistentLister();
  map = l_getTreeMap("German words with count");
  checkMap(1);
  
  dbOff();
  print("\nOn disk: " + loadConceptsStructure() + "\n");
}

svoid checkMap(int size) {
  print("Map type: " + className(map) + ", hash code: " + identityHashCode(map));
  assertTrue(map << MapInConcept);
  assertTrue("Map sane", getOpt_raw(map, 'm) != null);
  assertEquals(size, l(map));
  print("Size: " + l(map));
  print("Words: " + sfu(map));
}

Began life as a copy of #1009416