bork

[clean-tests.git] / array_itasks / test.icl

diff --git a/array_itasks/test.icl b/array_itasks/test.icl
new file mode 100644 (file)
index 0000000..f44b0d8
--- /dev/null
+++ b/array_itasks/test.icl
@@ -0,0 +1,16 @@
+module test
+
+import StdEnv => qualified return
+import iTasks
+
+gEditor{|{#Int}|} = emptyEditor
+gText{|{#Int}|} = []
+JSONEncode{|{#Int}|} x = [JSONArray [JSONInt e \\ e <-: x]
+JSONDecode{|{#Int}|} _ (JSONArray a) = {#i\\JSONInt<-a}
+gDefault{|{#Int}|} = {}
+gEq{|{#Int}|} l r = size l == size r && and [l == r\\l<-l & r<-r]
+
+Start w = startEngine t w
+
+t :: Task {#Int}
+t = treturn {0,0,0}