cmodule2 TestManagedStringList > DynTestModule {
  class Test {
    PersistentManagedObjects_v1<ManagedStringList> pm = new(ManagedStringList.factory());
    ManagedStringList l = new(pm.mem);
    ListTester tester;
    int garbageCollectAtLeastEvery = 10;
  
    run {
      pm.setUserData(l);
      tester = new ListTester(l, lambda1 rotate);
      tester.rotateAtLeastEvery = 3;
      tester.run();
    }
  
    LS rotate(LS _l) {
      print("Rotating. memSize=" + pm.mem.size() + ", free=" + pm.mem.freeList.totalFree);
      //print("Free list: " + pm.mem.freeList.lengthStats());
      print("Free list: " + pm.mem.freeList.asList());
      pm.mem.freeList.sanityTest();
      l.flush();
      pm.setUserData(l);
      pm.flush();
      
      bool gc = oneIn(tester.random, garbageCollectAtLeastEvery);
      if (gc) {
        print("GC!");
        pm.collectAndCompact();
        print("New mem size: " + pm.mem.size());
      }
      
      S hex = print(intArrayToHex(takeFirst(40, pm.mem.mem)));
      pm = pm.rotate();
      if (!gc) {
        S hex2 = print(intArrayToHex(takeFirst(40, pm.mem.mem)));
        assertEquals(hex, hex2);
      }
      ret l = pm.getUserData();
    }
  }
  
  void test {
    new Test().run();
  }
}