bork

[clean-tests.git] / new-layouts / test.icl

diff --git a/new-layouts/test.icl b/new-layouts/test.icl
index 7718e4b..d1b288b 100644 (file)
--- a/new-layouts/test.icl
+++ b/new-layouts/test.icl
@@ -2,22 +2,12 @@ module test
 
 import iTasks
 
-Start w = startEngine (t1 -|| t2 -|| t3 -|| t4) w
+Start w = startEngine (viewInformation () [] v) w
 
-:: Field = {field :: String}
-:: Type1 = {fields :: [Field]}
-:: Type2 = Type Int [Field]
-:: Type3 :== [Field]
-derive class iTask Field, Type1, Type2
+derive class iTask B, C
 
-t1 :: Task Type1
-t1 = enterInformation () []
+v :: B
+v = B2 C2
 
-t2 :: Task Type2
-t2 = enterInformation () []
-
-t3 :: Task Type3
-t3 = enterInformation () []
-
-t4 :: Task (Type2, Type3)
-t4 = enterInformation () []
+:: B = B1 | B2 C
+:: C = C1 Int | C2