!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");
}