git.iko.soy/elk
on c8eeedf help sign in
elk/tests/libraries/Test/CodeGen.elm
44 lines 915 B history raw
1module Test.CodeGen (tests) where
3import ElmTest.Assertion (..)
4import ElmTest.Test (..)
6import Maybe
7import Maybe (..)
9casePrime m' =
10 case m' of
11 Just x -> x
12 Nothing -> 0
14patternPrime =
15 case Just 42 of
16 Just x' -> x'
17 Nothing -> 0
19letQualified =
20 let (Maybe.Just x) = Just 42
21 in x
23caseQualified =
24 case Just 42 of
25 Maybe.Just x -> x
26 Nothing -> 0
28tests : Test
29tests =
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 ]