souplesse

commit aaaa0041d13d816a64fba683189c337b312c1973
parent 40af75c14052ee8af7fc8520822b6cff44e62796
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 17 Nov 2024 09:40:54 +0000

use helper to shorten looseLabels tests

Diffstat:
M
frontend/tests/LibTest.elm
 | 
39
+++++++++++++--------------------------

1 file changed, 13 insertions(+), 26 deletions(-)
diff --git a/frontend/tests/LibTest.elm b/frontend/tests/LibTest.elm
@@ -4,32 +4,19 @@ import Lib exposing (..)
 import Test exposing (..)
 import Expect exposing (Expectation)
 
+
 specs: Test
 specs =
-    describe "looseLabels"
-        [ test "0-100" <|
-              \_ ->
-              let (u, v, _) = looseLabels 10 0.0 100.0
-              in Expect.equal (0, 100) (u, v)
-        , test "2-98" <|
-              \_ ->
-              let (u, v, _) = looseLabels 10  2 98
-              in Expect.equal (0, 100) (u, v)
-        , test "8-91" <|
-              \_ ->
-              let (u, v, _) = looseLabels 10  8 91
-              in Expect.equal (0, 100) (u, v)
-        , test "1-32" <|
-              \_ ->
-              let (u, v, _) = looseLabels 8  1 32
-              in Expect.equal (0, 35) (u, v)
-        , test "1-36" <|
-              \_ ->
-              let (u, v, _) = looseLabels 8  1 36
-              in Expect.equal (0, 40) (u, v)
-        , test "1-4" <|
-              \_ ->
-              let (u, v, _) = looseLabels 10  1 4
-              in Expect.equal (1, 4) (u, v)
-
+    let runCheck ticks lower upper expected =
+            let label = (Debug.toString (lower, upper)) ++ " -> " ++ (Debug.toString expected)
+            in test label <| \_ ->
+                Expect.equal expected (looseLabels ticks lower upper)
+    in
+        describe "looseLabels"
+        [ runCheck 10  0 100  (0.0, 100.0, 10)
+        , runCheck 10  2  98  (0.0, 100.0, 10)
+        , runCheck 10  8  91  (0.0, 100.0, 10)
+        , runCheck  8  1  32  (0, 35, 5)
+        , runCheck  8  1  36  (0, 40, 5)
+        , runCheck 10  1   4  (1, 4, 0.5)
         ]