Skip to content

Commit 412cfe0

Browse files
hdgarroodhdgarrood
committed
Update test suite
* Use real versions of supporting libraries * Use bower to make it easy to update supporting libraries
1 parent d96b0ef commit 412cfe0

File tree

178 files changed

+1863
-1121
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

178 files changed

+1863
-1121
lines changed

‎examples/failing/ArrayType.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
module Main where
22

33
import Prelude
4-
import Debug.Trace
4+
import Control.Monad.Eff.Console
55

66
bar :: Number -> Number -> Number
77
bar n m = n + m

‎examples/failing/Eff.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,10 +3,10 @@ module Main where
33
import Prelude
44
import Control.Monad.Eff
55
import Control.Monad.ST
6-
import Debug.Trace
6+
import Control.Monad.Eff.Console
77

88
test = pureST (do
99
ref <- newSTRef 0
10-
trace "ST"
10+
log "ST"
1111
modifySTRef ref $ \n -> n + 1
1212
readSTRef ref)

‎examples/failing/ExtraRecordField.purs‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
2+
module ExtraRecordField where
3+
4+
import Prelude ((<>))
5+
6+
full :: { first :: String, last :: String } -> String
7+
full p = p.first <> " " <> p.last
8+
9+
oops = full { first: "Jane", last: "Smith", age: 29 }

‎examples/failing/MissingRecordField.purs‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
2+
module MissingRecordField where
3+
4+
import Prelude ((>))
5+
6+
john = { first: "John", last: "Smith" }
7+
8+
isOver50 p = p.age > 50.0
9+
10+
result = isOver50 john

‎examples/failing/OverlappingInstances.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,4 +10,4 @@ instance showA1 :: Show A where
1010
instance showA2 :: Show A where
1111
show A = "Instance 2"
1212

13-
main = Debug.Trace.trace $ show A
13+
main = Control.Monad.Eff.Console.log $ show A

‎examples/failing/OverlappingInstances2.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,4 +22,4 @@ instance ordA :: Ord A where
2222
test :: forall a. (Ord a) => a -> a -> String
2323
test x y = show $ x == y
2424

25-
main = Debug.Trace.trace $ test A B
25+
main = Control.Monad.Eff.Console.log $ test A B

‎examples/failing/RowConstructors1.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,4 +5,4 @@ import Prelude
55
data Foo = Bar
66
type Baz = { | Foo }
77

8-
main = Debug.Trace.trace "Done"
8+
main = Control.Monad.Eff.Console.log "Done"

‎examples/failing/RowConstructors2.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,4 +5,4 @@ import Prelude
55
type Foo r = (x :: Number | r)
66
type Bar = { | Foo }
77

8-
main = Debug.Trace.trace "Done"
8+
main = Control.Monad.Eff.Console.log "Done"

‎examples/failing/RowConstructors3.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,4 +5,4 @@ import Prelude
55
type Foo = { x :: Number }
66
type Bar = { | Foo }
77

8-
main = Debug.Trace.trace "Done"
8+
main = Control.Monad.Eff.Console.log "Done"

‎examples/failing/UnderscoreModuleName.purs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,4 +2,4 @@ module Bad_Module where
22

33
import Prelude
44

5-
main = Debug.Trace.trace "Done"
5+
main = Control.Monad.Eff.Console.log "Done"

0 commit comments

Comments
 (0)