scope test_unstructureOfMissingConceptClass.


concept Blu {}
concept Bla > Blu {}

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

end scope