test

diff --git a/test.icl b/test.icl
index 5da2a7b..600f4d6 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -32,8 +32,26 @@ module test
 //             @! 42
 //     )] []
 
+//import iTasks
+//Start w = doTasks t w
+//where
+//     t = viewInformation [ViewUsing id progressBar] (Just 80, Just long) <<@ Title "bork"
+//     long = "borkueaohutenhuaostuehasunethuaosnuhtesuhaotsuehtausneohtusoauhtesauhtesnuhtasuhetauhosunehtoauesnhtaueshautesnhutaonsuhetaonsuhetansuhetansuhetaosnuehtaosnuhetaosunhaoetsunehatounsoehtasunhteunaoshuteoasnuhteaosuhnaoetsnuheotasunehotasunhetusnahotueaou"
+
+
 import iTasks
-Start w = doTasks t w
-where
-       t = viewInformation [ViewUsing id progressBar] (Just 80, Just "bork")
-               <<@ Title "bork"
+
+:: R = { x :: !String, y :: !String }
+derive class iTask R
+
+Start w = doTasks (t -&&- u) w
+
+t = updateSharedInformation
+       [ UpdateSharedAs
+               (\r -> r.x)
+               (\r x -> {r & x=x})
+               const
+       ] s
+u = updateSharedInformation [] s
+
+s = sharedStore "x" {x="",y=""}