!include #1030944 // structure v19

scope test_unstructureMissingClassToBaseClass.

concept Blu {}
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;
  S struct = structure(unlisted(Bla), data);
  print(+struct);
  O o = unstructure(struct, classFinder);
  assertEqualsVerbose(Blu.class, _getClass(o));
}

end scope