on master help sign in
Add Failing Char test cases
5ef362eMax New
tests/libraries/Test.elm+2
@@ -10,6 +10,7 @@ import IO.Runner (Request, Response)
10import IO.Runner as Run
10import IO.Runner as Run
11
11
12import Test.Array as Array
12import Test.Array as Array
13+import Test.Char as Char
13import Test.Dict as Dict
14import Test.Dict as Dict
14import Test.Equality as Equality
15import Test.Equality as Equality
15import Test.List as List
16import Test.List as List
@@ -20,6 +21,7 @@ import Test.Trampoline as Trampoline
20tests : Test
21tests : Test
21tests = suite "Elm Standard Library Tests"
22tests = suite "Elm Standard Library Tests"
22 [ Array.tests
23 [ Array.tests
24+ , Char.tests
23 , Dict.tests
25 , Dict.tests
24 , Equality.tests
26 , Equality.tests
25 , List.tests
27 , 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+ ]