X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=stampedShare%2Ftest.icl;h=d9e330e063351866d940165d5bed75f5aed9001a;hb=HEAD;hp=9b62ee70a52ac3bd348207d28bf8447e196a6753;hpb=0ca0e0086ac4e1b0be40f820d213fcfcb7deec20;p=clean-tests.git diff --git a/stampedShare/test.icl b/stampedShare/test.icl deleted file mode 100644 index 9b62ee7..0000000 --- a/stampedShare/test.icl +++ /dev/null @@ -1,15 +0,0 @@ -module test - -import iTasks.Extensions.DateTime -import System.Time -import iTasks - -sh = sharedStore "bork1" ({DateTime|year=0,mon=0,day=0,hour=0,min=0,sec=0}, 42) -sh` = sharedStore "bork2" ({Timespec|tv_sec=0,tv_nsec=0}, 42) - -Start w = doTasks t w - -t = viewSharedInformation [] sh - -&&- updateSharedInformation [] (dateTimeStampedShare sh) - -&&- viewSharedInformation [] sh` - -&&- updateSharedInformation [] (timespecStampedShare sh`)