.

[clean-tests.git] / test.icl

diff --git a/test.icl b/test.icl
index 9837893..0093bb4 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -1,103 +1,18 @@
 module test
 
+//import Data.Func
 import iTasks
 
-Start w = doTasks t w
-
-t:==palindrome
-
-palindrome :: Task (Maybe String)
-palindrome
-       =       enterInformation "Enter a palindrome" []
-       >>*     [ OnAction  ActionOk     (ifValue palindrome (\v -> return (Just v)))
-            , OnAction  ActionCancel (always (return Nothing))
-            ]
-    >>=                viewInformation "Result is:" []
+Start w = doTasks (onStartup par) w
 where
-       palindrome s = lc == reverse lc
-       where
-               lc :: [Char]
-               lc = fromString s
-
-//t :: Task (Int, Int)
-//t = enterInformation "Left" [] -&&- enterInformation "Right" []
-//     >>= viewInformation "Result" []
-
-//import Data.GenDefault
-//
-//:: T =
-//     { a0 :: Int
-//     , a1 :: Int
-//     , a2 :: Int
-//     , a3 :: Int
-//     , a4 :: Int
-//     , a5 :: Int
-//     , a6 :: Int
-//     , a7 :: Int
-//     , a8 :: Int
-//     , a9 :: Int
-//     , a10 :: Int
-//     , a11 :: Int
-//     , a12 :: Int
-//     , a14 :: Int
-//     , a15 :: Int
-//     , a16 :: Int
-//     , a17 :: Int
-//     , a18 :: Int
-//     , a19 :: Int
-//     , a20 :: Int
-//     , a21 :: Int
-//     , a22 :: Int
-//     , a23 :: Int
-//     , a24 :: Int
-//     , a25 :: Int
-//     , a26 :: Int
-//     , a27 :: Int
-//     , a28 :: Int
-//     , a29 :: Int
-//     , a30 :: Int
-//     , a31 :: Int
-//     , a32 :: Int
-//     }
-//
-//class c a
-//where
-//     a0 :: a
-//     a1 :: a
-//     a2 :: a
-//     a3 :: a
-//     a4 :: a
-//     a5 :: a
-//     a6 :: a
-//     a7 :: a
-//     a8 :: a
-//     a9 :: a
-//     a10 :: a
-//     a11 :: a
-//     a12 :: a
-//     a14 :: a
-//     a15 :: a
-//     a16 :: a
-//     a17 :: a
-//     a18 :: a
-//     a19 :: a
-//     a20 :: a
-//     a21 :: a
-//     a22 :: a
-//     a23 :: a
-//     a24 :: a
-//     a25 :: a
-//     a26 :: a
-//     a27 :: a
-//     a28 :: a
-//     a29 :: a
-//     a30 :: a
-//     a31 :: a
-//     a32 :: a
-//     a33 :: a
-//     
-//
-//derive gDefault T
+       par :: Task [(Int, TaskValue ())]
+       par = parallel [] []
+//Start w = doTasks (onStartup $ m >>- traceValue) w
 //
-//Start :: T
-//Start = gDefault{|*|}
+//m = parallel
+//     [(Embedded, \stl->return 42)]
+//     []
+//     [OnValue $ \tv->case tv of
+//             NoValue = ?None
+//             _ = ?None
+//     ]