Skip to content

Commit

Permalink
x' -> x, add a normal binding test
Browse files Browse the repository at this point in the history
  • Loading branch information
mikeplus64 committed Feb 2, 2013
1 parent 9b8a049 commit 1181d15
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions Test.hs
@@ -1,5 +1,4 @@
import Language.Haskell.Repl import Language.Haskell.Repl
import Control.Monad


(-->) = (,) (-->) = (,)


Expand All @@ -26,6 +25,7 @@ main = do
, "classes" --> "class Abc a b | a -> b" , "classes" --> "class Abc a b | a -> b"
, "instances" --> "instance Abc X X'" , "instances" --> "instance Abc X X'"
, "let-bindings" --> "let x = X; x' = X' x" , "let-bindings" --> "let x = X; x' = X' x"
, "normal binding (should fail)"--> "asdf = 31"
] ]


test "Types" test "Types"
Expand All @@ -35,11 +35,13 @@ main = do


test "Kinds" test "Kinds"
[ ":k X" --> ":k X" [ ":k X" --> ":k X"
, ":k Abc" --> ":k Abc"
] ]


test "Misc" test "Misc"
[ "info" --> ":i Monoid" [ "info" --> ":i Monoid"
, "undefining" --> ":d x'" , "undefining x" --> ":d x"
, "try to get x anyway" --> ":t x"
, "clear" --> ":c" , "clear" --> ":c"
, "(try to get something)" --> ":t X" , "try to get X anyway" --> ":t X"
] ]

0 comments on commit 1181d15

Please sign in to comment.