From fa54eab94acca189352f34e8bfae0f4588296c79 Mon Sep 17 00:00:00 2001 From: Anthony Grimes Date: Thu, 31 Jan 2013 05:19:05 -0600 Subject: [PATCH] Add a type hinted laser benchmark. --- src/clojure_template_benchmarks/core.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/clojure_template_benchmarks/core.clj b/src/clojure_template_benchmarks/core.clj index beaff70..2986c6c 100644 --- a/src/clojure_template_benchmarks/core.clj +++ b/src/clojure_template_benchmarks/core.clj @@ -75,6 +75,13 @@ (for [x (range 1 ceil)] (laser/node :li :content (str x))))) +(defdocument simple-laser-hinted "" [] + (laser/class= "foo") (laser/content ^String bar)) +(defdocument list-laser-hinted "" [ceil] + (laser/element= :ul) (laser/html-content + (for [x (range 1 ceil)] + (laser/node :li :content (str ^Number x))))) + (enlive/deftemplate simple-enlive-core "clojure_template_benchmarks/templates/simple.enlive" [] [:span.foo] (enlive/content bar)) (enlive/deftemplate list-enlive-core "clojure_template_benchmarks/templates/list.enlive" [ceil] @@ -162,6 +169,14 @@ (with-progress-reporting (quick-bench (list-laser 1000))) (println "\n --- \n") + (println "\n\n ***** laser (hinted) ***** \n\n") + (with-progress-reporting (quick-bench (simple-laser-hinted))) + (println "\n --- \n") + (with-progress-reporting (quick-bench (list-laser-hinted 50))) + (println "\n --- \n") + (with-progress-reporting (quick-bench (list-laser-hinted 1000))) + (println "\n --- \n") + (println "\n\n ***** enlive ***** \n\n") (with-progress-reporting (quick-bench (simple-enlive))) (println "\n --- \n")