benchmark against last published

lue-bird · Dec 3, 2024 · bd72c3b · bd72c3b
1 parent 06690eb
commit bd72c3b
Show file tree

Hide file tree

Showing 3 changed files with 5,448 additions and 43 deletions.
diff --git a/benchmark/src/Benchmarks.elm b/benchmark/src/Benchmarks.elm
@@ -7,8 +7,9 @@ import Elm.Parser
 import Elm.Syntax.File
 import Elm.Syntax.Range
 import ElmSyntaxParserLenient
+import ElmSyntaxParserLenientLastPublished
 import ElmSyntaxPrintDefunctionalized
-import ElmSyntaxPrintDefunctionalizedAttemptFaster
+import ElmSyntaxPrintDefunctionalizedLastPublished
 import Print
 import Random
 
@@ -21,30 +22,30 @@ benchmarks =
                 [ Benchmark.describe "sample didn't parse" [] ]
 
             Just sample ->
-                [ Benchmark.Alternative.rank "printing"
+                [ {-Benchmark.Alternative.rank "printing"
                     (\f -> f sample)
                     [ ( "current package implementation"
                       , moduleToStringCurrentPackage
                       )
-                    , ( "attempt to make it faster"
-                      , moduleToStringAttemptFaster
+                    , ( "last published"
+                      , moduleToStringLastPublished
                       )
-                    ]
-
-                {- },, Benchmark.Alternative.rank "elm-syntax Location compare"
+                    ]-}
                    Benchmark.Alternative.rank "parsing"
-                       (\f -> f sampleModuleSource)
+                       (\f -> f sample1ModuleSource)
                        [ --( "attempt at faster"
                          --, moduleToStringFasterIndent
                          --),
-                         ( "current elm-syntax implementation"
-                         , parseModuleElmSyntax
-                         )
-                       , ( "current package implementation"
+                        -- ( "current elm-syntax implementation"
+                       --  , parseModuleElmSyntax
+                       --  ),
+                         ( "current package implementation"
                          , parseModuleCurrentPackage
+                         ),
+                         ( "last published implementation"
+                         , parseModuleLastPublished
                          )
-                      ]
-                -}
+                      ] 
                 ]
         )
 
@@ -93,10 +94,10 @@ moduleToStringCurrentPackage syntaxModule =
         |> Print.toString
 
 
-moduleToStringAttemptFaster : Elm.Syntax.File.File -> String
-moduleToStringAttemptFaster syntaxModule =
+moduleToStringLastPublished : Elm.Syntax.File.File -> String
+moduleToStringLastPublished syntaxModule =
     syntaxModule
-        |> ElmSyntaxPrintDefunctionalizedAttemptFaster.module_
+        |> ElmSyntaxPrintDefunctionalizedLastPublished.module_
         |> Print.toString
 
 
@@ -106,6 +107,13 @@ parseModuleCurrentPackage moduleSource =
         |> ElmSyntaxParserLenient.run ElmSyntaxParserLenient.module_
 
 
+parseModuleLastPublished : String -> Maybe Elm.Syntax.File.File
+parseModuleLastPublished moduleSource =
+    moduleSource
+        |> ElmSyntaxParserLenientLastPublished.run
+            ElmSyntaxParserLenientLastPublished.module_
+
+
 parseModuleElmSyntax : String -> Maybe Elm.Syntax.File.File
 parseModuleElmSyntax moduleSource =
     moduleSource