git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Replace obsolete shelltest scripts
c422118Phil Freeman
examples/passing/List.purs+8−22
compare with golang
unifiedsplit
@@ -1,24 +1,10 @@
1−module List where
2−
3− data List a
4− = Nil
5− | Cons
6− { head :: a
7− , tail :: List a
8− }
9−
10− isNull Nil = true
11− isNull _ = false
12−
13− concat Nil l2 = l2
14− concat (Cons x) l2 = Cons
15− { head: x.head
16− , tail: concat x.tail l2
17− }
18−
19− flatten Nil = Nil
20− flatten (Cons cons) = concat cons.head (flatten cons.tail)
21−
22module Main where
1module Main where
23
2
24−main = Trace.trace "Done"
3+import Prelude
4+import Eff
5+import Arrays
6+import Global
7+
8+main = do
9+ let test1 = concat [1, 2, 3] [4, 5, 6]
10+ Trace.print test1
examples/passing/Maybe.purs+3−2
@@ -2,10 +2,11 @@ module Main where
2
2
3import Prelude
3import Prelude
4import Maybe
4import Maybe
5+import Global
5
6
6main = do
7main = do
7− let test1 = fromMaybe $ do
8+ let test1 = fromMaybe 0 $ do
8 a <- Just 1
9 a <- Just 1
9 b <- Just 2
10 b <- Just 2
10 ret (a + b)
11 ret (a + b)
11− Trace.trace "Done"
12+ Trace.print test1
examples/shelltest/Console.jsdeleted−19
@@ -1,19 +0,0 @@
1−// data IO a = \ -> a
2−
3−// ret :: forall a. a -> IO a
4−var ret = function(a) {
5− return function() { return a; };
6−}
7−
8−// (>>=) :: forall a b. IO a -> (a -> IO b) -> IO b
9−var $62$62$61 = function(first) {
10− return function (f) {
11− return function () {
12− var a = first();
13− return f(a)();
14− };
15− };
16−};
17−
18−// putStrLn :: String -> IO {}
19−var putStrLn = function(str) { return function() { console.log(str); return {}; }; };
examples/shelltest/List.jsdeleted−7
@@ -1,7 +0,0 @@
1−var l1 = List.Cons({ head: 1, tail: List.Nil });
2−var l2 = List.Cons({ head: 2, tail: List.Nil });
3−var l3 = List.Cons({ head: l1, tail: List.Cons({ head: l2, tail: List.Nil }) });
4−var flat = List.flatten(l3);
5−var f1 = flat.value.head;
6−var f2 = flat.value.tail.value.head
7−console.log([f1, f2]);
examples/shelltest/Maybe.jsdeleted−5
@@ -1,5 +0,0 @@
1−console.log(Maybe.bind(Maybe.Just("a"))(function(a) {
2− return Maybe.bind(Maybe.Just("b"))(function(b) {
3− return Maybe.Just(a + b);
4− });
5−}));
examples/shelltest/runAll.testdeleted−16
@@ -1,16 +0,0 @@
1−# Maybe
2−mkdir -p tests && ../../dist/build/psc/psc --no-prelude ../passing/Maybe.purs -o tests/Maybe.js && cat tests/Maybe.js Maybe.js | nodejs
3−<<<
4−>>>
5−{ ctor: 'Maybe.Just', value: 'ab' }
6−>>>2
7−>>>= 0
8−
9−# List
10−mkdir -p tests && ../../dist/build/psc/psc ../passing/List.purs -o tests/List.js && cat tests/List.js List.js | nodejs
11−<<<
12−>>>
13−[ 1, 2 ]
14−>>>2
15−>>>= 0
16−
examples/shelltest/runMain.jsdeleted−1
@@ -1 +0,0 @@
1−main();