!7

set flag findConceptWhereCI_debug.

concept CC {

  S a, b;

}

module > DynPrintLog {

  start-thread {

    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, findConceptWhereCI(CC, a := "yo"));

    assertNull(findConceptWhereCI(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");

  }

}