!7

set flag ExternalMutex_debug.
    
cm > DynTestModule {
  void testExternalMetaMutexAndConvertObjectMetaToMap {
    new MetaWithExternalMutex o;
    print(meta := toStringWithIdentity(o._getMeta()));
    
    convertObjectMetaToMap(o);
    print(meta := toStringWithIdentity(o._getMeta()));
    convertObjectMetaToMap(o);
    print(meta := toStringWithIdentity(o._getMeta()));
  }
  
  void testMetaMapPut {
    new Meta o;
    print(meta := toStringWithIdentity(o._getMeta()));
    metaMapPut(o, hello := "World");
    print(meta := toStringWithIdentity(o._getMeta()));
    metaMapPut(o, hello := null);
    metaMapPut(o, null := "hello");
    print(meta := toStringWithIdentity(o._getMeta()));
  }
}