Merge branch 'master' of git.martlubbers.net:clean-tests

[clean-tests.git] / cloudiTasks / cloudiTasks.icl

diff --git a/cloudiTasks/cloudiTasks.icl b/cloudiTasks/cloudiTasks.icl
index 73dec05..f5dbace 100644 (file)
--- a/cloudiTasks/cloudiTasks.icl
+++ b/cloudiTasks/cloudiTasks.icl
@@ -10,13 +10,11 @@ master :: Task ()
 master
        = get applicationOptions
        >>- \eo->traceValue ("Master started on port " +++ toString eo.serverPort)
+//     >-| set 42 (remoteShare (sharedStore "bork" 42) {domain="localhost",port=9099})
 //     >-| asyncTask (ExistingNode "localhost" 9099) (blockWait 5)
 //     >-| asyncTask "localhost" 9090 (blockWait 5)
 //     >-| asyncTask (PrivateNode 9099) (traceValue 5 >-| traceValue 42)
-       >-| asyncTaskSpawn 9099 (return 42)
-       >-| asyncTaskSpawn 9099 (updateInformation [] 42)
-//     >-| (updateInformation [] 42 -&&- updateInformation [] 22) @. ("localhost", 9099)
-//     >-| asyncTaskSpawn 9099 (updateInformation [] 42 -&&- updateInformation [] 22)
+       >-| asyncTask "localhost" 9099 (updateInformation [] 5)
 //     >-| sleepSortPar [5,1,3,8]
        >&^ viewSharedInformation []
        @! ()