on master help sign in
Add Failing Char test cases
commit5ef362e9ba1f15c0f151957546ebe9d8c9f1e3e8 authorMax New <maxsnew@gmail.com> dateMon 9 Jun 2014, 21:23 (12 years ago) parentdc18803
2 files changed+17
tests/libraries/Test.elm+2 tests/libraries/Test/Char.elm+15
tests/libraries/Test.elm+2
@@ -10,6 +10,7 @@ import IO.Runner (Request, Response)
1010import IO.Runner as Run
1111
1212import Test.Array as Array
13+import Test.Char as Char
1314import Test.Dict as Dict
1415import Test.Equality as Equality
1516import Test.List as List
@@ -20,6 +21,7 @@ import Test.Trampoline as Trampoline
2021tests : Test
2122tests = suite "Elm Standard Library Tests"
2223 [ Array.tests
24+ , Char.tests
2325 , Dict.tests
2426 , Equality.tests
2527 , List.tests
tests/libraries/Test/Char.elmnew file+15
@@ -0,0 +1,15 @@
1+module Test.Char (tests) where
2+
3+import Char
4+
5+import ElmTest.Assertion (..)
6+import ElmTest.Test (..)
7+
8+tests : Test
9+tests =
10+ suite "Char"
11+ [ test "toUpper" <| assertEqual 'C' <| Char.toUpper 'c'
12+ , test "toLower" <| assertEqual 'c' <| Char.toLower 'C'
13+ , test "toLocaleUpper" <| assertEqual 'C' <| Char.toLocaleUpper 'c'
14+ , test "toLocaleLower" <| assertEqual 'c' <| Char.toLocaleLower 'C'
15+ ]