testsssss

[clean-tests.git] / newtype-editor / test.icl

diff --git a/newtype-editor/test.icl b/newtype-editor/test.icl
index 8208eb5..7f4816d 100644 (file)
--- a/newtype-editor/test.icl
+++ b/newtype-editor/test.icl
@@ -1,15 +1,9 @@
 module test
 
 import iTasks
-
-derive class iTask T1
-
-:: T1 =
-       { f1 :: Bool
-       , f2 :: Bool
-       }
+import qualified Data.Map as DM
 
 Start w = startEngine t w
 
-t :: Task (Maybe T1)
-t = enterInformation () []
+t :: Task ('DM'.Map Int String)
+t = viewInformation () [] ('DM'.fromList [(42, "foo")])