added bench for writing html string first, then to outputstream.

onionpancakes · Feb 21, 2024 · 2a51646 · 2a51646
1 parent 1e4c5c4
commit 2a51646
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 2 deletions.
diff --git a/dev/bench/chassis.clj b/dev/bench/chassis.clj
@@ -286,3 +286,17 @@
     (with-open [pout (java.io.OutputStreamWriter. out "UTF-8")]
       (c/write-html pout [c/doctype-html5 (page-compiled-unambig data)]))
     (.toByteArray out)))
+
+(defn chassis-page-output-stream-writer-html-string
+  [data]
+  (let [out (java.io.ByteArrayOutputStream. 16384)]
+    (with-open [pout (java.io.OutputStreamWriter. out "UTF-8")]
+      (.write pout (c/html [c/doctype-html5 (page data)])))
+    (.toByteArray out)))
+
+(defn chassis-page-output-stream-writer-html-string-compiled-unambig
+  [data]
+  (let [out (java.io.ByteArrayOutputStream. 16384)]
+    (with-open [pout (java.io.OutputStreamWriter. out "UTF-8")]
+      (.write pout (c/html [c/doctype-html5 (page-compiled-unambig data)])))
+    (.toByteArray out)))
diff --git a/dev/user.clj b/dev/user.clj
@@ -13,7 +13,9 @@
                      chassis-page-print-stream
                      chassis-page-print-stream-compiled-unambig
                      chassis-page-output-stream-writer
-                     chassis-page-output-stream-writer-compiled-unambig]]
+                     chassis-page-output-stream-writer-compiled-unambig
+                     chassis-page-output-stream-writer-html-string
+                     chassis-page-output-stream-writer-html-string-compiled-unambig]]
             [bench.hiccup
              :refer [hiccup-page
                      hiccup-page-compiled
@@ -129,6 +131,14 @@
         (println "Chassis OutputStreamWriter Compiled Unambig")
         (println "-------------------------------------")
         (bench (chassis-page-output-stream-writer-compiled-unambig data))
+        (println)
+        (println "Chassis OutputStreamWriter HTML String")
+        (println "-------------------------------------")
+        (bench (chassis-page-output-stream-writer data))
+        (println)
+        (println "Chassis OutputStreamWriter HTML String Compiled Unambig")
+        (println "-------------------------------------")
+        (bench (chassis-page-output-stream-writer-compiled-unambig data))
         (println)))))
 
 (defn gen-bench-hiccup
@@ -198,7 +208,9 @@
            (slurp (chassis-page-print-stream data-small))
            (slurp (chassis-page-print-stream-compiled-unambig data-small))
            (slurp (chassis-page-output-stream-writer data-small))
-           (slurp (chassis-page-output-stream-writer-compiled-unambig data-small))))
+           (slurp (chassis-page-output-stream-writer-compiled-unambig data-small))
+           (slurp (chassis-page-output-stream-writer-html-string data-small))
+           (slurp (chassis-page-output-stream-writer-html-string-compiled-unambig data-small))))
 
 (assert (= (hiccup-page data-small)
            (hiccup-page-compiled data-small)

diff --git a/src/dev/onionpancakes/chassis/core.clj b/src/dev/onionpancakes/chassis/core.clj
@@ -123,6 +123,7 @@
 
 (defn html
   "Returns HTML string given a HTML Node tree."
+  {:tag String}
   [root]
   (let [sb (StringBuilder. 16384)
         _  (write-html sb root)]