scope test_unstructureMissingClassToBaseClass.

concept Blu { Blu ref; }
concept Bla > Blu {}

// make sure best base class is used
svoid test_unstructureMissingClassToBaseClass() {
  IF1<S, Class> classFinder = name -> {
    if (eq(name, "main$Bla")) null;
    ret (Class) callF(_defaultClassFinder(), name);
  };
  new structure_Data data;
  data.storeBaseClasses = true;
  Bla b = unlisted(Bla);
  b.ref = b;
  S struct = structure(b, data);
  print(+struct);
  O o = unstructure(struct, classFinder);
  assertEqualsVerbose(Blu.class, _getClass(o));
  assertSameVerbose(o, o/Blu.ref);
}

end scope