git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
More failing tests
b3d3f79Gary Burgess
examples/passing/ObjectUpdater.purs+20−11
compare with golang
unifiedsplit
@@ -3,21 +3,30 @@ module Main where
3import Control.Monad.Eff
3import Control.Monad.Eff
4import Debug.Trace
4import Debug.Trace
5
5
6−foreign import data Error :: !
6+foreign import eqeqeq
7−
8−foreign import error
9 """
7 """
10− function error() {
8+ function eqeqeq(x) {
9+ return function (y) {
10+ if (x == y) return x;
11− throw new Error("Object update failed");
11+ throw new Error("Unexpected result: " + x + " /== " + y);
12+ };
12− }
13+ };
13− """ :: forall e. Eff (error :: Error | e) Unit
14+ """ :: forall a. a -> a -> a
15+
16+(===) = eqeqeq
17+infixl 4 ===
14
18
15getValue :: forall e. Eff (| e) Boolean
19getValue :: forall e. Eff (| e) Boolean
16getValue = return true
20getValue = return true
17
21
18main = do
22main = do
19 let record = { value: false }
23 let record = { value: false }
20− record2 <- record { value = _ } <$> getValue
24+ record' <- record { value = _ } <$> getValue
21− if record2.value
25+ print $ record'.value === true
22− then trace "Done"
26+
23− else error
27+ let point = { x: 1, y: 1 }
28+ x = 10
29+ point' = (point { x = _, y = x }) 100
30+
31+ print $ point'.x === 100
32+ print $ point'.y === 10
examples/passing/ObjectWildcards.purs+2−2
@@ -26,6 +26,6 @@ main = do
26 print obj.value
26 print obj.value
27 let x = 1
27 let x = 1
28 point <- { x: _, y: x } <$> return 2
28 point <- { x: _, y: x } <$> return 2
29− print $ point.x === 1
29+ print $ point.x === 2
30− print $ point.y === 2
30+ print $ point.y === 1
31 trace (mkRecord 1 "Done!").bar
31 trace (mkRecord 1 "Done!").bar