X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=new-external%2Ftest.icl;fp=new-external%2Ftest.icl;h=0000000000000000000000000000000000000000;hb=4b62b5d397d86147e393c05b3083af74a3a0c4af;hp=03c1c35dd474427147043e9e0658b408fb685aa8;hpb=e5305ee9d4290e1aa803a2e62a14f32e5cd29782;p=clean-tests.git

diff --git a/new-external/test.icl b/new-external/test.icl
deleted file mode 100644
index 03c1c35..0000000
--- a/new-external/test.icl
+++ /dev/null
@@ -1,24 +0,0 @@
-module test
-
-import iTasks
-import iTasks.Extensions.Process
-import System.Time
-//import System.Process
-
-Start w = startEngine t w
-
-t = withShared [] \stdin->withShared ([],[]) \stdout->
-	pipe {tv_sec=0,tv_nsec=100000000}
-		"/bin/ls" ["-a", "/home/mrl"] Nothing
-		"/bin/grep" ["steam"] Nothing Nothing
-		stdin stdout
-	-&&- viewSharedInformation () [] stdout
-	-&&- updateSharedInformation () [] stdin
-	
-//t = withShared [] \inq->
-//	withShared ([], []) \outq->
-//	externalProcess {tv_sec=0,tv_nsec=100000000} "/bin/bash" [] Nothing inq outq (Just termios)
-//	-|| viewSharedInformation "Output" [] outq
-//	-|| forever (enterInformation "Send" [] >>= \nl->upd (\l->l ++ [nl +++ "\n"]) inq)
-//	>>* [OnAction (Action "Stop") (always (treturn ()))]
-//termios = {defaultPtyOptions & childInNewSession=True, childControlsTty=True, useRawIO = False}