git.iko.soy/elk
on master help sign in
Add tests that catch #772
fb3dd80Evan Czaplicki
tests/libraries/Test.elm+2
compare with master
unifiedsplit
@@ -11,6 +11,7 @@ import IO.Runner as Run
11import Test.Array as Array
11import Test.Array as Array
12import Test.Basics as Basics
12import Test.Basics as Basics
13import Test.Char as Char
13import Test.Char as Char
14+import Test.CodeGen as CodeGen
14import Test.Dict as Dict
15import Test.Dict as Dict
15import Test.Equality as Equality
16import Test.Equality as Equality
16import Test.List as List
17import Test.List as List
@@ -23,6 +24,7 @@ tests = suite "Elm Standard Library Tests"
23 [ Array.tests
24 [ Array.tests
24 , Basics.tests
25 , Basics.tests
25 , Char.tests
26 , Char.tests
27+ , CodeGen.tests
26 , Dict.tests
28 , Dict.tests
27 , Equality.tests
29 , Equality.tests
28 , List.tests
30 , List.tests
tests/libraries/Test/CodeGen.elmnew file+44
@@ -0,0 +1,44 @@
1+module Test.CodeGen (tests) where
2+
3+import ElmTest.Assertion (..)
4+import ElmTest.Test (..)
5+
6+import Maybe
7+import Maybe (..)
8+
9+casePrime m' =
10+ case m' of
11+ Just x -> x
12+ Nothing -> 0
13+
14+patternPrime =
15+ case Just 42 of
16+ Just x' -> x'
17+ Nothing -> 0
18+
19+letQualified =
20+ let (Maybe.Just x) = Just 42
21+ in x
22+
23+caseQualified =
24+ case Just 42 of
25+ Maybe.Just x -> x
26+ Nothing -> 0
27+
28+tests : Test
29+tests =
30+ let primes =
31+ suite "Primes"
32+ [ test "case" <| assertEqual 42 (casePrime (Just 42))
33+ , test "pattern" <| assertEqual 42 patternPrime
34+ ]
35+ qualifiedPatterns =
36+ suite "Qualified Patterns"
37+ [ test "let" <| assertEqual 42 letQualified
38+ , test "case" <| assertEqual 42 caseQualified
39+ ]
40+ in
41+ suite "CodeGen"
42+ [ primes
43+ , qualifiedPatterns
44+ ]