Add tests that catch #772
commitfb3dd8026000b271449f0bf65d40acec85e4b685
authorEvan Czaplicki <info@elm-lang.org>
dateThu 28 Aug 2014, 00:14 (12 years ago)
parent536a46c
tests/libraries/Test.elm+2
@@ -11,6 +11,7 @@ import IO.Runner as Run
1111import Test.Array as Array
1212import Test.Basics as Basics
1313import Test.Char as Char
14+import Test.CodeGen as CodeGen
1415import Test.Dict as Dict
1516import Test.Equality as Equality
1617import Test.List as List
@@ -23,6 +24,7 @@ tests = suite "Elm Standard Library Tests"
2324 [ Array.tests
2425 , Basics.tests
2526 , Char.tests
27+ , CodeGen.tests
2628 , Dict.tests
2729 , Equality.tests
2830 , 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+ ]