concept Bla {
  int a, b, c, d;
}

concept Blubb {
  int a;
}

svoid test_lowestConceptByField() {
  new Concepts cc;
  indexConceptFieldDesc(cc, Bla, "a");
  indexConceptFieldDesc(cc, Bla, "c");
  Bla x = cnew(cc, Bla, a := 3, b := 3, c := 5, d := 5);
  Bla y = cnew(cc, Bla, a := 5, b := 5, c := 3, d := 3);
  assertEqualsVerbose(x, lowestConceptByField(cc, Bla, "a"));
  assertEqualsVerbose(y, lowestConceptByField(cc, Bla, "c"));
  assertEqualsVerbose(x, lowestConceptByField(cc, Bla, "b"));
  assertEqualsVerbose(y, lowestConceptByField(cc, Bla, "d"));
  assertEqualsVerbose(null, lowestConceptByField(cc, Blubb, "a"));
}