cleanup karax project for public consumption

tests/diffDomTests.nim

@@ -0,0 +1,183 @@
+
+import vdom, times, karax, karaxdsl, jdict, jstrutils, parseutils, sequtils
+
+var
+    entries: seq[cstring]
+    results: seq[cstring]
+    timeout : Timeout
+
+proc reset() =
+    results.add cstring"reset started"
+    entries = @[cstring("0"), cstring("1"), cstring("2"), cstring("3"), cstring("4"), cstring("5") ]
+    redraw()
+    results.add cstring"reset finished"
+
+proc checkOrder(order : seq[int]): bool =
+    var ul = getElementById("ul")
+    if ul == nil or len(ul.children) != len(order):
+        return false
+    var pos = 0
+    for child in ul.children:
+        if child.id != $order[pos]:
+            return false
+        inc pos
+    return true
+
+proc check1() =
+    let result = checkOrder(@[0, 1, 2, 3, 4, 7, 5])
+    if result:
+        results.add cstring"test1 - OK"
+    else:
+        results.add cstring"test1 - FAIL"
+
+# result: 0 1 2 3 4 7 5
+proc test1() =
+    results.add cstring"test1 started"
+    entries = @[cstring("0"), cstring("1"), cstring("2"), cstring("3"), cstring("4"), cstring("5") ]
+    entries.insert(cstring("7"), 5)
+    redraw()
+    timeout = setTimeout(check1, 20)
+
+proc check2() =
+    let result = checkOrder(@[8, 0, 1, 2, 3, 4, 7, 5])
+    if result:
+        results.add cstring"test1 - OK"
+    else:
+        results.add cstring"test2 - FAIL"
+
+# result: 8 0 1 2 3 4 7 5
+proc test2() =
+    results.add cstring"test2 started"
+    entries = @[cstring("0"), cstring("1"), cstring("2"), cstring("3"), cstring("4"), cstring("5") ]
+    entries.insert(cstring("7"), 5)
+    entries.insert(cstring("8"), 0)
+    redraw()
+    timeout = setTimeout(check2, 20)
+
+proc check3() =
+    let result = checkOrder(@[2, 3, 4, 1])
+    if result:
+        results.add cstring"test3 - OK"
+    else:
+        results.add cstring"test3 - FAIL"
+
+# result: 2 3 4 1
+proc test3() =
+    results.add cstring"test3 started"
+    entries = @[cstring("2"), cstring("3"), cstring("4"), cstring("1") ]
+    redraw()
+    timeout = setTimeout(check3, 20)
+
+proc check4() =
+    let result = checkOrder(@[5, 6, 7, 8])
+    if result:
+        results.add cstring"test4 - OK"
+    else:
+        results.add cstring"test4 - FAIL"
+
+# result: 5 6 7 8
+proc test4() =
+    results.add cstring"test4 started"
+    entries = @[cstring("5"), cstring("6"), cstring("7"), cstring("8") ]
+    redraw()
+    timeout = setTimeout(check4, 20)
+
+proc check5() =
+    let result = checkOrder(@[0, 1, 3, 5, 4, 5])
+    if result:
+        results.add cstring"test5 - OK"
+    else:
+        results.add cstring"test5 - FAIL"
+
+# result: 0 1 3 5 4 5
+proc test5() =
+    results.add cstring"test5 started"
+    entries = @[cstring("0"), cstring("1"), cstring("3"), cstring("5"), cstring("4"), cstring("5") ]
+    redraw()
+    timeout = setTimeout(check5, 20)
+
+proc check6() =
+    let result = checkOrder(@[])
+    if result:
+        results.add cstring"test6 - OK"
+    else:
+        results.add cstring"test6 - FAIL"
+
+# result: empty
+proc test6() =
+    results.add cstring"test6 started"
+    entries = @[]
+    redraw()
+    timeout = setTimeout(check6, 20)
+
+proc check7() =
+    let result = checkOrder(@[2])
+    if result:
+        results.add cstring"test7 - OK"
+    else:
+        results.add cstring"test7 - FAIL"
+    redraw()
+
+# result: 2
+proc test7() =
+    results.add cstring"test7 started"
+    entries = @[cstring("2")]
+    redraw()
+    timeout = setTimeout(check7, 20)
+
+proc createEntry(id: int): VNode =
+  result = buildHtml():
+    button(id="" & $id):
+        text $id
+
+proc createDom(): VNode =
+    result = buildHtml(tdiv()):
+        ul(id="ul"):
+            for e in entries:
+                createEntry(parseInt(e))
+        for r in results:
+            tdiv:
+                text r
+
+setRenderer createDom
+
+proc onload(session: cstring) {.exportc.} =
+    for i in 0..5: # 0_000:
+        entries.add(cstring($i))
+    init()
+
+    var dtReset = 100
+    var dtTest = 500
+
+    var t = dtReset
+    timeout = setTimeout(test1, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test2, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test3, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test4, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test5, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test6, t)
+    t += dtTest
+    timeout = setTimeout(reset, t)
+    t += dtReset
+
+    timeout = setTimeout(test7, t)