!7

set flag ConceptFieldIndex_debug.

concept CC {

  S a, b;

}

p {

  CC cc = cnew(CC, a := "hello", b := "world");

  ConceptFieldIndex<CC, S> index = new(mainConcepts, CC, "a");

  assertEquals("world", index.get("hello").b);

  assertNull(index.get("Hello"));

  cset(cc, a := "yo");

  assertNull(index.get("hello"));

  assertEquals("world", index.get("yo").b);

  print("testing findConceptWhere");

  assertEquals(cc, findConceptWhere(CC, a := "yo"));

  assertNull(findConceptWhere(CC, a := "x"));

  print("testing delete");

  cc.delete();

  assertNull(index.get("yo"));

  cc = cnew(CC, a := "another", b := "test");

  assertEquals("test", index.get("another").b);

  // Test null values

  print("testing null");

  cc = cnew(CC, a := null, b := "nullie");

  assertEquals(cc, index.get(null));

  print("testing not null anymore");

  cset(cc, a := "x");

  assertEquals(cc, index.get("x"));

  assertNull(index.get(null));

  print("OK");

}