Upgrade benchmarks to 0.19

Author: Janiczek

benchmarks/Main.elm

@@ -3,7 +3,7 @@ module Main exposing (main)
 import Benchmark exposing (..)
 import Benchmark.Runner as Runner
 import Expect exposing (Expectation)
-import Random.Pcg
+import Random
 import Snippets
 import Test.Internal exposing (Test(..))
 
@@ -64,25 +64,17 @@ suite =
             [ benchmark "generating" (benchTest Snippets.map5Pass)
             , benchmark "simplifying" (benchTest Snippets.map5Fail)
             ]
-        , describe "andThen"
-            [ benchmark "generating" (benchTest Snippets.andThenPass)
-            , benchmark "simplifying" (benchTest Snippets.andThenFail)
-            ]
-        , describe "conditional"
-            [ benchmark "generating" (benchTest Snippets.conditionalPass)
-            , benchmark "simplifying" (benchTest Snippets.conditionalFail)
-            ]
         ]
 
 
 benchTest : Test -> (() -> List Expectation)
 benchTest test =
     case test of
-        Test fn ->
-            \_ -> fn (Random.Pcg.initialSeed 0) 10
+        ElmTestVariant__FuzzTest fn ->
+            \_ -> fn (Random.initialSeed 0) 10
 
-        Labeled _ test ->
-            benchTest test
+        ElmTestVariant__Labeled _ test_ ->
+            benchTest test_
 
-        test ->
-            Debug.crash <| "No support for benchmarking this type of test: " ++ toString test
+        test_ ->
+            Debug.todo <| "No support for benchmarking this type of test: " ++ Debug.toString test_

benchmarks/README.md

@@ -6,7 +6,7 @@ These are some benchmarks of the elm-test library built using the excellent [elm
 
 ```sh
 cd ./benchmarks
-elm-make Main.elm
+elm make Main.elm
 open index.html
 ```
 

benchmarks/Snippets.elm

@@ -1,4 +1,4 @@
-module Snippets exposing (Person, andMapFail, andMapPass, andThenFail, andThenPass, boolFail, boolPass, charFail, charPass, conditionalFail, conditionalPass, even, evenWithConditional, floatFail, floatPass, intFail, intPass, intRangeFail, intRangePass, listIntFail, listIntPass, map5Fail, map5Pass, mapFail, mapPass, maybeIntFail, maybeIntPass, person, person2, resultFail, resultPass, sequence, stringFail, stringPass, variableList)
+module Snippets exposing (..)
 
 import Expect exposing (Expectation)
 import Fuzz exposing (Fuzzer)
@@ -169,30 +169,6 @@ map5Fail =
         \_ -> Expect.fail "Failed"
 
 
-andThenPass : Test
-andThenPass =
-    fuzz (variableList 2 5 Fuzz.int) "(passes) andThen" <|
-        \_ -> Expect.pass
-
-
-andThenFail : Test
-andThenFail =
-    fuzz (variableList 2 5 Fuzz.int) "(fails) andThen" <|
-        \_ -> Expect.fail "Failed"
-
-
-conditionalPass : Test
-conditionalPass =
-    fuzz evenWithConditional "(passes) conditional" <|
-        \_ -> Expect.pass
-
-
-conditionalFail : Test
-conditionalFail =
-    fuzz evenWithConditional "(fails) conditional" <|
-        \_ -> Expect.fail "Failed"
-
-
 type alias Person =
     { firstName : String
     , lastName : String
@@ -226,25 +202,9 @@ even =
     Fuzz.map ((*) 2) Fuzz.int
 
 
-variableList : Int -> Int -> Fuzzer a -> Fuzzer (List a)
-variableList min max item =
-    Fuzz.intRange min max
-        |> Fuzz.andThen (\length -> List.repeat length item |> sequence)
-
-
 sequence : List (Fuzzer a) -> Fuzzer (List a)
 sequence fuzzers =
     List.foldl
         (Fuzz.map2 (::))
         (Fuzz.constant [])
         fuzzers
-
-
-evenWithConditional : Fuzzer Int
-evenWithConditional =
-    Fuzz.intRange 1 6
-        |> Fuzz.conditional
-            { retries = 3
-            , fallback = (+) 1
-            , condition = \n -> (n % 2) == 0
-            }

benchmarks/elm-package.json

@@ -0,0 +1,32 @@
+{
+    "type": "application",
+    "source-directories": [
+        ".",
+        "../src"
+    ],
+    "elm-version": "0.19.1",
+    "dependencies": {
+        "direct": {
+            "elm/bytes": "1.0.8",
+            "elm/core": "1.0.5",
+            "elm/html": "1.0.0",
+            "elm/json": "1.1.3",
+            "elm/random": "1.0.0",
+            "elm-explorations/benchmark": "1.0.2"
+        },
+        "indirect": {
+            "BrianHicks/elm-trend": "2.1.3",
+            "elm/browser": "1.0.2",
+            "elm/regex": "1.0.0",
+            "elm/time": "1.0.0",
+            "elm/url": "1.0.0",
+            "elm/virtual-dom": "1.0.2",
+            "mdgriffith/style-elements": "5.0.2",
+            "robinheghan/murmur3": "1.0.0"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}