git.iko.soy/elk
on master help sign in
Add rudimentary tests for Basics
536a46cEvan Czaplicki
tests/libraries/Test.elm+2
compare with master
unifiedsplit
@@ -9,6 +9,7 @@ import IO.Runner (Request, Response)
9import IO.Runner as Run
9import IO.Runner as Run
10
10
11import Test.Array as Array
11import Test.Array as Array
12+import Test.Basics as Basics
12import Test.Char as Char
13import Test.Char as Char
13import Test.Dict as Dict
14import Test.Dict as Dict
14import Test.Equality as Equality
15import Test.Equality as Equality
@@ -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+ , Basics.tests
23 , Char.tests
25 , Char.tests
24 , Dict.tests
26 , Dict.tests
25 , Equality.tests
27 , Equality.tests
tests/libraries/Test/Basics.elmnew file+20
@@ -0,0 +1,20 @@
1+module Test.Basics (tests) where
2+
3+import ElmTest.Assertion (..)
4+import ElmTest.Test (..)
5+
6+tests : Test
7+tests =
8+ let comparison =
9+ suite "Comparison"
10+ [ test "max" <| assertEqual 42 (max 32 42)
11+ , test "min" <| assertEqual 42 (min 91 42)
12+ , test "clamp low" <| assertEqual 10 (clamp 10 20 5)
13+ , test "clamp mid" <| assertEqual 15 (clamp 10 20 15)
14+ , test "clamp high" <| assertEqual 20 (clamp 10 20 25)
15+ ]
16+
17+ in
18+ suite "Basics"
19+ [ comparison
20+ ]