536a46c · elk · git.iko.soy

Add rudimentary tests for Basics

commit536a46c5e56c50d3774899e964dbf2be68ea386f authorEvan Czaplicki <info@elm-lang.org> dateThu 28 Aug 2014, 00:07 (12 years ago) parent3726aa6

2 files changed+22

unifiedsplit

tests/libraries/Test.elm+2

@@ -9,6 +9,7 @@ import IO.Runner (Request, Response)

99import IO.Runner as Run

1010

1111import Test.Array as Array

12+import Test.Basics as Basics

1213import Test.Char as Char

1314import Test.Dict as Dict

1415import Test.Equality as Equality

@@ -20,6 +21,7 @@ import Test.Trampoline as Trampoline

2021tests : Test

2122tests = suite "Elm Standard Library Tests"

2223 [ Array.tests

24+ , Basics.tests

2325 , Char.tests

2426 , Dict.tests

2527 , Equality.tests

tests/libraries/Test/Basics.elmnew file+20

@@ -0,0 +1,20 @@

1+module Test.Basics (tests) where

3+import ElmTest.Assertion (..)

4+import ElmTest.Test (..)

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+ ]