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

diff --git a/filepicker/test.icl b/filepicker/test.icl
index e885131..fa05452 100644 (file)
--- a/filepicker/test.icl
+++ b/filepicker/test.icl
@@ -74,3 +74,9 @@ where
                = (Ok $ sortBy fst [(f, fi)\\f<-files & fi<-fis], iw)
 
        write p w iw = (Ok (const (const False)), iw)
+//import iTasks
+//import iTasks.Extensions.Files
+//
+//Start w = startEngine (
+//     selectFile "/opt/clean/lib" () False []
+//     >&> viewSharedInformation "Selection" []) w

diff --git a/haye_test/test.icl b/haye_test/test.icl
new file mode 100644 (file)
index 0000000..3cc7df7
--- /dev/null
+++ b/haye_test/test.icl
@@ -0,0 +1,20 @@
+module test
+
+class Test sds
+where
+       ttest :: sds -> (String, String)
+
+:: ADT = E. sds: ADT (String sds -> Int) & Test sds
+
+:: TestRecord = { bla2 :: ADT}
+
+instance Test (String, String)
+where
+               ttest ss = ss
+
+f :: (String, TestRecord)
+f = ("jaja", {TestRecord| bla2 =ADT \s sds -> 18})
+
+Start = case f of
+       ("jaja", {bla2}) = case bla2 of
+               (ADT ff) = ff "a" ("as", "bs")