lib/tree-updater.rkt

@@ -3,7 +3,6 @@
          racket/function
          racket/match
          racket/string
-         profile-flame-graph
          "pure-utils.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
@@ -299,34 +298,8 @@
   ; check that noscript images are removed
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
   ; benchmark
-  (when (file-exists? "../storage/Block.html")
-    (with-input-from-file "../storage/Block.html"
+  (when (file-exists? "../storage/Frog.html")
+    (with-input-from-file "../storage/Frog.html"
       (λ ()
         (define tree (html->xexp (current-input-port)))
-        (time (length (update-tree-wiki tree "minecraft"))))))
-
-  ; benchmark with flamegraph
-  ; these two flamegraphs need to be separated i think so that they resolve
-  ; different thunks. probably only need to be in two different with-input-file
-  ; blocks.
-  (when (file-exists? "../storage/Block.html")
-    (with-input-from-file "../storage/Block.html"
-      (λ ()
-        (define tree (html->xexp (current-input-port)))
-        (profile
-          (length (update-tree-wiki tree "minecraft"))
-          #:svg-path "../storage/Block-profile-errortrace.svg"
-          #:repeat 100
-          #:use-errortrace? #t)
-        )))
-  (when (file-exists? "../storage/Block.html")
-    (with-input-from-file "../storage/Block.html"
-      (λ ()
-        (define tree (html->xexp (current-input-port)))
-        (profile
-          (length (update-tree-wiki tree "minecraft"))
-          #:svg-path "../storage/Block-profile.svg"
-          #:repeat 100
-          #:use-errortrace? #f)
-        )))
-  )
+        (time (length (update-tree-wiki tree "minecraft")))))))