From 6bc4c9f4632be6b5a6cbfd152a09185801d12f23 Mon Sep 17 00:00:00 2001 From: Matthew Griffith Date: Sun, 4 Jul 2021 12:43:51 -0400 Subject: [PATCH] upgrade testcases to use the new form of running benchmarks --- src/benchmark/run.ts | 14 ++-- .../arityexplorer/{Main.elm => Suite.elm} | 16 +---- testcases/arityexplorer/V8/Benchmark.elm | 14 ++++ .../V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/arityexplorer/V8/Debug.elm | 64 +++++++++++++++++++ testcases/arityexplorer/standard.html | 22 ------- testcases/arityexplorer/transformed.html | 21 ------ testcases/core/{Main.elm => Suite.elm} | 14 +--- testcases/core/V8/Benchmark.elm | 14 ++++ testcases/core/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/core/V8/Debug.elm | 64 +++++++++++++++++++ testcases/core/standard.html | 22 ------- testcases/core/transformed.html | 21 ------ testcases/elm-animator/Run.elm | 18 ------ testcases/elm-animator/Suite.elm | 8 +++ testcases/elm-animator/V8/Benchmark.elm | 14 ++++ .../elm-animator/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-animator/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-css/{Main.elm => Suite.elm} | 13 +--- testcases/elm-css/V8/Benchmark.elm | 14 ++++ .../elm-css/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-css/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-css/standard.html | 22 ------- testcases/elm-css/transformed.html | 21 ------ testcases/elm-markdown/Run.elm | 18 ------ testcases/elm-markdown/Suite.elm | 12 ++++ testcases/elm-markdown/V8/Benchmark.elm | 14 ++++ .../elm-markdown/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-markdown/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-markdown/standard.html | 22 ------- testcases/elm-markdown/transformed.html | 21 ------ testcases/elm-obj-file/{Run.elm => Suite.elm} | 8 +-- testcases/elm-obj-file/V8/Benchmark.elm | 14 ++++ .../elm-obj-file/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-obj-file/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-obj-file/standard.html | 22 ------- testcases/elm-obj-file/transformed.html | 21 ------ testcases/elm-ui-2/{Main.elm => Suite.elm} | 13 +--- testcases/elm-ui-2/V8/Benchmark.elm | 14 ++++ .../elm-ui-2/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-ui-2/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-ui-2/standard.html | 22 ------- testcases/elm-ui-2/transformed.html | 21 ------ testcases/elm-ui/{Main.elm => Suite.elm} | 15 +---- testcases/elm-ui/V8/Benchmark.elm | 14 ++++ testcases/elm-ui/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/elm-ui/V8/Debug.elm | 64 +++++++++++++++++++ testcases/elm-ui/standard.html | 22 ------- testcases/elm-ui/transformed.html | 21 ------ testcases/simple/V8/Benchmark.elm | 14 ++++ testcases/simple/V8/Benchmark/Runner/Json.elm | 14 ++++ testcases/simple/V8/Debug.elm | 64 +++++++++++++++++++ 52 files changed, 862 insertions(+), 416 deletions(-) rename testcases/arityexplorer/{Main.elm => Suite.elm} (63%) create mode 100644 testcases/arityexplorer/V8/Benchmark.elm create mode 100644 testcases/arityexplorer/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/arityexplorer/V8/Debug.elm delete mode 100644 testcases/arityexplorer/standard.html delete mode 100644 testcases/arityexplorer/transformed.html rename testcases/core/{Main.elm => Suite.elm} (95%) create mode 100644 testcases/core/V8/Benchmark.elm create mode 100644 testcases/core/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/core/V8/Debug.elm delete mode 100644 testcases/core/standard.html delete mode 100644 testcases/core/transformed.html delete mode 100644 testcases/elm-animator/Run.elm create mode 100644 testcases/elm-animator/Suite.elm create mode 100644 testcases/elm-animator/V8/Benchmark.elm create mode 100644 testcases/elm-animator/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-animator/V8/Debug.elm rename testcases/elm-css/{Main.elm => Suite.elm} (69%) create mode 100644 testcases/elm-css/V8/Benchmark.elm create mode 100644 testcases/elm-css/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-css/V8/Debug.elm delete mode 100644 testcases/elm-css/standard.html delete mode 100644 testcases/elm-css/transformed.html delete mode 100644 testcases/elm-markdown/Run.elm create mode 100644 testcases/elm-markdown/Suite.elm create mode 100644 testcases/elm-markdown/V8/Benchmark.elm create mode 100644 testcases/elm-markdown/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-markdown/V8/Debug.elm delete mode 100644 testcases/elm-markdown/standard.html delete mode 100644 testcases/elm-markdown/transformed.html rename testcases/elm-obj-file/{Run.elm => Suite.elm} (99%) create mode 100644 testcases/elm-obj-file/V8/Benchmark.elm create mode 100644 testcases/elm-obj-file/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-obj-file/V8/Debug.elm delete mode 100644 testcases/elm-obj-file/standard.html delete mode 100644 testcases/elm-obj-file/transformed.html rename testcases/elm-ui-2/{Main.elm => Suite.elm} (65%) create mode 100644 testcases/elm-ui-2/V8/Benchmark.elm create mode 100644 testcases/elm-ui-2/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-ui-2/V8/Debug.elm delete mode 100644 testcases/elm-ui-2/standard.html delete mode 100644 testcases/elm-ui-2/transformed.html rename testcases/elm-ui/{Main.elm => Suite.elm} (65%) create mode 100644 testcases/elm-ui/V8/Benchmark.elm create mode 100644 testcases/elm-ui/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/elm-ui/V8/Debug.elm delete mode 100644 testcases/elm-ui/standard.html delete mode 100644 testcases/elm-ui/transformed.html create mode 100644 testcases/simple/V8/Benchmark.elm create mode 100644 testcases/simple/V8/Benchmark/Runner/Json.elm create mode 100644 testcases/simple/V8/Debug.elm diff --git a/src/benchmark/run.ts b/src/benchmark/run.ts index c4ecaab..b896f90 100644 --- a/src/benchmark/run.ts +++ b/src/benchmark/run.ts @@ -64,12 +64,12 @@ async function go() { // { // name: 'Elm Core', // dir: 'testcases/core', - // elmFile: 'Main.elm', + // elmFile: 'V8/Benchmark.elm', // }, // { // name: 'Elm CSS', // dir: 'testcases/elm-css', - // elmFile: 'Main.elm', + // elmFile: 'V8/Benchmark.elm', // }, { name: 'Html', @@ -79,28 +79,28 @@ async function go() { // { // name: 'Elm UI', // dir: 'testcases/elm-ui', - // elmFile: 'Main.elm', + // elmFile: 'V8/Benchmark.elm', // }, // { // name: 'Elm UI 2', // dir: 'testcases/elm-ui-2', - // elmFile: 'Main.elm', + // elmFile: 'V8/Benchmark.elm', // }, // { // name: 'elm-animator', // dir: 'testcases/elm-animator', - // elmFile: 'Run.elm', + // elmFile: 'V8/Benchmark.elm', // }, // { // name: 'Elm Markdown', // dir: 'testcases/elm-markdown', - // elmFile: 'Run.elm', + // elmFile: 'V8/Benchmark.elm', // }, // // // This one takes forever // { // name: 'elm-obj-file', // dir: 'testcases/elm-obj-file', - // elmFile: 'Run.elm', + // elmFile: 'V8/Benchmark.elm', // }, ]); const result = await report; diff --git a/testcases/arityexplorer/Main.elm b/testcases/arityexplorer/Suite.elm similarity index 63% rename from testcases/arityexplorer/Main.elm rename to testcases/arityexplorer/Suite.elm index 5a4b468..a4c1f6f 100644 --- a/testcases/arityexplorer/Main.elm +++ b/testcases/arityexplorer/Suite.elm @@ -1,24 +1,10 @@ -port module Main exposing (main) +module Suite exposing (suite) {-| -} import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json -import Dict -import Html -import Json.Decode -import Json.Encode -import List -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite - - -port reportResults : Json.Encode.Value -> Cmd msg - type MyType = Zero diff --git a/testcases/arityexplorer/V8/Benchmark.elm b/testcases/arityexplorer/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/arityexplorer/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/arityexplorer/V8/Benchmark/Runner/Json.elm b/testcases/arityexplorer/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/arityexplorer/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/arityexplorer/V8/Debug.elm b/testcases/arityexplorer/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/arityexplorer/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/arityexplorer/standard.html b/testcases/arityexplorer/standard.html deleted file mode 100644 index f076b31..0000000 --- a/testcases/arityexplorer/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/arityexplorer/transformed.html b/testcases/arityexplorer/transformed.html deleted file mode 100644 index 5b8d016..0000000 --- a/testcases/arityexplorer/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/core/Main.elm b/testcases/core/Suite.elm similarity index 95% rename from testcases/core/Main.elm rename to testcases/core/Suite.elm index 24f8db4..b8289c2 100644 --- a/testcases/core/Main.elm +++ b/testcases/core/Suite.elm @@ -1,25 +1,13 @@ -port module Main exposing (main) +module Suite exposing (suite) {-| -} import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json import Dict -import Html -import Json.Decode import Json.Encode import List -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite - - -port reportResults : Json.Encode.Value -> Cmd msg - - type MyType = Zero | One Int diff --git a/testcases/core/V8/Benchmark.elm b/testcases/core/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/core/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/core/V8/Benchmark/Runner/Json.elm b/testcases/core/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/core/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/core/V8/Debug.elm b/testcases/core/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/core/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/core/standard.html b/testcases/core/standard.html deleted file mode 100644 index f076b31..0000000 --- a/testcases/core/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/core/transformed.html b/testcases/core/transformed.html deleted file mode 100644 index 5b8d016..0000000 --- a/testcases/core/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-animator/Run.elm b/testcases/elm-animator/Run.elm deleted file mode 100644 index 66c24d9..0000000 --- a/testcases/elm-animator/Run.elm +++ /dev/null @@ -1,18 +0,0 @@ -port module Run exposing (main) - -{-| -} - -import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json -import Benchmarks -import Html -import Json.Encode - - -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults Benchmarks.suite - - -port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-animator/Suite.elm b/testcases/elm-animator/Suite.elm new file mode 100644 index 0000000..fd54348 --- /dev/null +++ b/testcases/elm-animator/Suite.elm @@ -0,0 +1,8 @@ +module Suite exposing (suite) + +{-| -} + +import Benchmarks + +suite = Benchmarks.suite + diff --git a/testcases/elm-animator/V8/Benchmark.elm b/testcases/elm-animator/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-animator/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-animator/V8/Benchmark/Runner/Json.elm b/testcases/elm-animator/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-animator/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-animator/V8/Debug.elm b/testcases/elm-animator/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-animator/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-css/Main.elm b/testcases/elm-css/Suite.elm similarity index 69% rename from testcases/elm-css/Main.elm rename to testcases/elm-css/Suite.elm index b962e2d..cf6ae82 100644 --- a/testcases/elm-css/Main.elm +++ b/testcases/elm-css/Suite.elm @@ -1,23 +1,12 @@ -port module Main exposing (main) +module Suite exposing (suite) {-| -} import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json import Css exposing (..) import Html.Styled exposing (..) -import Html.Styled.Attributes exposing (css, href, src) -import Json.Encode -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite - - -port reportResults : Json.Encode.Value -> Cmd msg - three = List.repeat 3 0 diff --git a/testcases/elm-css/V8/Benchmark.elm b/testcases/elm-css/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-css/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-css/V8/Benchmark/Runner/Json.elm b/testcases/elm-css/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-css/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-css/V8/Debug.elm b/testcases/elm-css/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-css/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-css/standard.html b/testcases/elm-css/standard.html deleted file mode 100644 index f076b31..0000000 --- a/testcases/elm-css/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-css/transformed.html b/testcases/elm-css/transformed.html deleted file mode 100644 index 5b8d016..0000000 --- a/testcases/elm-css/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-markdown/Run.elm b/testcases/elm-markdown/Run.elm deleted file mode 100644 index 66c24d9..0000000 --- a/testcases/elm-markdown/Run.elm +++ /dev/null @@ -1,18 +0,0 @@ -port module Run exposing (main) - -{-| -} - -import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json -import Benchmarks -import Html -import Json.Encode - - -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults Benchmarks.suite - - -port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-markdown/Suite.elm b/testcases/elm-markdown/Suite.elm new file mode 100644 index 0000000..f8727f2 --- /dev/null +++ b/testcases/elm-markdown/Suite.elm @@ -0,0 +1,12 @@ +module Suite exposing (suite) + +{-| -} + + +import Benchmarks + + +suite = + Benchmarks.suite + + diff --git a/testcases/elm-markdown/V8/Benchmark.elm b/testcases/elm-markdown/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-markdown/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-markdown/V8/Benchmark/Runner/Json.elm b/testcases/elm-markdown/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-markdown/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-markdown/V8/Debug.elm b/testcases/elm-markdown/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-markdown/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-markdown/standard.html b/testcases/elm-markdown/standard.html deleted file mode 100644 index 6837481..0000000 --- a/testcases/elm-markdown/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-markdown/transformed.html b/testcases/elm-markdown/transformed.html deleted file mode 100644 index a872303..0000000 --- a/testcases/elm-markdown/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-obj-file/Run.elm b/testcases/elm-obj-file/Suite.elm similarity index 99% rename from testcases/elm-obj-file/Run.elm rename to testcases/elm-obj-file/Suite.elm index b6474aa..c4c5407 100644 --- a/testcases/elm-obj-file/Run.elm +++ b/testcases/elm-obj-file/Suite.elm @@ -1,4 +1,4 @@ -port module Run exposing (main) +module Suite exposing (suite) {-| -} @@ -11,12 +11,6 @@ import Length import Obj.Decode -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite - - -port reportResults : Json.Encode.Value -> Cmd msg suite = diff --git a/testcases/elm-obj-file/V8/Benchmark.elm b/testcases/elm-obj-file/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-obj-file/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-obj-file/V8/Benchmark/Runner/Json.elm b/testcases/elm-obj-file/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-obj-file/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-obj-file/V8/Debug.elm b/testcases/elm-obj-file/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-obj-file/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-obj-file/standard.html b/testcases/elm-obj-file/standard.html deleted file mode 100644 index 6837481..0000000 --- a/testcases/elm-obj-file/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-obj-file/transformed.html b/testcases/elm-obj-file/transformed.html deleted file mode 100644 index a872303..0000000 --- a/testcases/elm-obj-file/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-ui-2/Main.elm b/testcases/elm-ui-2/Suite.elm similarity index 65% rename from testcases/elm-ui-2/Main.elm rename to testcases/elm-ui-2/Suite.elm index 1f6ce06..58cb1db 100644 --- a/testcases/elm-ui-2/Main.elm +++ b/testcases/elm-ui-2/Suite.elm @@ -1,25 +1,16 @@ -port module Main exposing (main) +module Suite exposing (suite) {-| -} import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json + import Element2 exposing (..) import Element2.Background as Background import Element2.Font as Font -import Html -import Html.Attributes as Attr -import Json.Encode -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite -port reportResults : Json.Encode.Value -> Cmd msg - three = List.repeat 3 0 diff --git a/testcases/elm-ui-2/V8/Benchmark.elm b/testcases/elm-ui-2/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-ui-2/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-ui-2/V8/Benchmark/Runner/Json.elm b/testcases/elm-ui-2/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-ui-2/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-ui-2/V8/Debug.elm b/testcases/elm-ui-2/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-ui-2/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-ui-2/standard.html b/testcases/elm-ui-2/standard.html deleted file mode 100644 index f076b31..0000000 --- a/testcases/elm-ui-2/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-ui-2/transformed.html b/testcases/elm-ui-2/transformed.html deleted file mode 100644 index 5b8d016..0000000 --- a/testcases/elm-ui-2/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-ui/Main.elm b/testcases/elm-ui/Suite.elm similarity index 65% rename from testcases/elm-ui/Main.elm rename to testcases/elm-ui/Suite.elm index 256ea3b..9f87f1d 100644 --- a/testcases/elm-ui/Main.elm +++ b/testcases/elm-ui/Suite.elm @@ -1,24 +1,11 @@ -port module Main exposing (main) +module Suite exposing (suite) {-| -} import Benchmark exposing (..) -import Benchmark.Runner exposing (BenchmarkProgram, program) -import Benchmark.Runner.Json import Element exposing (..) import Element.Background as Background import Element.Font as Font -import Html -import Html.Attributes as Attr -import Json.Encode - - -main : Benchmark.Runner.Json.JsonBenchmark -main = - Benchmark.Runner.Json.program reportResults suite - - -port reportResults : Json.Encode.Value -> Cmd msg three = diff --git a/testcases/elm-ui/V8/Benchmark.elm b/testcases/elm-ui/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-ui/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-ui/V8/Benchmark/Runner/Json.elm b/testcases/elm-ui/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/elm-ui/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/elm-ui/V8/Debug.elm b/testcases/elm-ui/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/elm-ui/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null diff --git a/testcases/elm-ui/standard.html b/testcases/elm-ui/standard.html deleted file mode 100644 index f076b31..0000000 --- a/testcases/elm-ui/standard.html +++ /dev/null @@ -1,22 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/elm-ui/transformed.html b/testcases/elm-ui/transformed.html deleted file mode 100644 index 5b8d016..0000000 --- a/testcases/elm-ui/transformed.html +++ /dev/null @@ -1,21 +0,0 @@ - - - - Main - - - - -
- - - diff --git a/testcases/simple/V8/Benchmark.elm b/testcases/simple/V8/Benchmark.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/simple/V8/Benchmark.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/simple/V8/Benchmark/Runner/Json.elm b/testcases/simple/V8/Benchmark/Runner/Json.elm new file mode 100644 index 0000000..48f0436 --- /dev/null +++ b/testcases/simple/V8/Benchmark/Runner/Json.elm @@ -0,0 +1,14 @@ +port module V8.Benchmark exposing (main) + +{-| -} + + +import Benchmark.Runner.Json +import Suite +import Json.Encode + +main : Benchmark.Runner.Json.JsonBenchmark +main = + Benchmark.Runner.Json.program reportResults Suite.suite + +port reportResults : Json.Encode.Value -> Cmd msg diff --git a/testcases/simple/V8/Debug.elm b/testcases/simple/V8/Debug.elm new file mode 100644 index 0000000..f3275b3 --- /dev/null +++ b/testcases/simple/V8/Debug.elm @@ -0,0 +1,64 @@ +module V8.Debug exposing (memory, optimizationStatus, reportV8StatusForBenchmarks) + +{-| -} + +import Json.Encode + + +memory : String -> a -> a +memory tag value = + value + + +type Status + = Status Int + + +optimizationStatus : String -> a -> a +optimizationStatus tag value = + value + + +{-| + + hasFastProperties obj + + hasFastSmiElements obj + + hasFastObjectElements obj + + hasFastDoubleElements obj + + hasDictionaryElements obj + + hasFastHoleyElements obj + + haveSameMap ( obj1, obj2 ) + + isValidSmi obj + + isSmi obj + + hasFastSmiOrObjectElements obj + + hasSloppyArgumentsElements obj + +-} +type alias Memory = + { tag : String + , hasFastProperties : Bool + , hasFastSmiElements : Bool + , hasFastObjectElements : Bool + , hasFastDoubleElements : Bool + , hasDictionaryElements : Bool + , hasFastHoleyElements : Bool + , isValidSmi : Bool + , isSmi : Bool + , hasFastSmiOrObjectElements : Bool + , hasSloppyArgumentsElements : Bool + } + + +reportV8StatusForBenchmarks : () -> Json.Encode.Value +reportV8StatusForBenchmarks _ = + Json.Encode.null