bork

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

diff --git a/sharestore/test.icl b/sharestore/test.icl
new file mode 100644 (file)
index 0000000..5c6c97b
--- /dev/null
+++ b/sharestore/test.icl
@@ -0,0 +1,12 @@
+module test
+
+import iTasks
+
+Start w = startEngine main w
+
+sh :: Shared [Int]
+sh = sharedStore "bork" [0,1,2]
+
+main :: Task [Int]
+main = viewSharedInformation () [] sh
+       -|| (chooseAction [(Action "Empty", ())] >>- \()->upd (\_->[]) sh)