gered/clojure-template-benchmarks
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

merged

Browse source
This commit is contained in:
Chris Allen 2013-07-28 13:38:24 -07:00
parent 21298dba5d 8962bde055
commit 20ecc9e894
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
project.clj
View file

@ -12,5 +12,6 @@
[stencil "0.3.2"] [stencil "0.3.2"]
[selmer "0.1.8"] [selmer "0.1.8"]
[tinsel "0.4.0" :exclusions [hickory]] [tinsel "0.4.0" :exclusions [hickory]]
[selmer "0.1.8"]
[me.raynes/laser "1.1.1"] [me.raynes/laser "1.1.1"]
[me.shenfeng/mustache "1.1"]]) [me.shenfeng/mustache "1.1"]])

12
src/clojure_template_benchmarks/core.clj
View file

@ -7,7 +7,8 @@
[hiccup.core :as hiccup] [hiccup.core :as hiccup]
[me.raynes.laser :as laser :refer [defdocument]] [me.raynes.laser :as laser :refer [defdocument]]
[net.cgrand.enlive-html :as enlive] [net.cgrand.enlive-html :as enlive]
[me.shenfeng.mustache :as mustache])) [me.shenfeng.mustache :as mustache]
[selmer.parser :as selmer]))
(def bar (str "bar")) (def bar (str "bar"))
@ -54,10 +55,10 @@
(defn simple-selmer [] (defn simple-selmer []
(selmer/render-file "src/clojure_template_benchmarks/templates/simple.html" {:bar bar})) (selmer/render-file "clojure_template_benchmarks/templates/simple.html" {:bar bar}))
(defn list-selmer [ceil] (defn list-selmer [ceil]
(selmer/render-file "src/clojure_template_benchmarks/templates/list.html" {:items (range 1 ceil)})) (selmer/render-file "clojure_template_benchmarks/templates/list.html" {:items (range 1 ceil)}))
(defn simple-stencil-no-fd [] (defn simple-stencil-no-fd []
@ -208,8 +209,7 @@
(println "\n --- \n") (println "\n --- \n")
(with-progress-reporting (quick-bench (list-laser-hinted 50))) (with-progress-reporting (quick-bench (list-laser-hinted 50)))
(println "\n --- \n") (println "\n --- \n")
(with-progress-reporting (quick-bench (list-laser-hinted 1000))) (with-progress-reporting (quick-bench (list-laser-hinted 1000))))
(println "\n --- \n"))
(defn enlive-benches [] (defn enlive-benches []
(println "\n\n ***** enlive ***** \n\n") (println "\n\n ***** enlive ***** \n\n")
@ -225,9 +225,9 @@
;; (println (simple-clabango-no-fd)) ;; (println (simple-clabango-no-fd))
;; (println (count (list-filler-hiccup))) ;; (println (count (list-filler-hiccup)))
;; (println (count (list-filler-clabango-no-fd))) ;; (println (count (list-filler-clabango-no-fd)))
(selmer-benches)
(mustache-benches) (mustache-benches)
(stencil-benches) (stencil-benches)
(selmer-benches)
(str-benches) (str-benches)
(hiccup-benches) (hiccup-benches)
(clabango-benches) (clabango-benches)