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

Began life as a copy of #1008615