From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 12 Sep 2019 09:13:55 +0000 (+0200)
Subject: test
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=d039e976dcfebdd914caaa64e0f83143a65644ca;p=clean-tests.git

test
---

diff --git a/test.icl b/test.icl
index 5da2a7b..600f4d6 100644
--- 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=""}