Commit d14c364e authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

tests: add disabled for ecl-bytecmp

Also fix error in html-report
parent 638ac62d
...@@ -38,11 +38,12 @@ ...@@ -38,11 +38,12 @@
(dolist (b benchmarks) (dolist (b benchmarks)
(let* ((results (loop :for i in implementations (let* ((results (loop :for i in implementations
:collect (let* ((id (cdr (assoc i data :test #'string=))) :collect (let* ((id (cdr (assoc i data :test #'string=)))
(ir (third (assoc b id :test #'string=)))) (ir #|cons is fifth|#
(third (assoc b id :test #'string=))))
(if (numberp ir) (if (numberp ir)
ir ir
-1)))) -1))))
(best (apply #'min (remove-if #'minusp results)))) (best (apply #'min (or (remove-if #'minusp results) '(0)))))
(cl-who:htm (cl-who:htm
(:tr (:th (cl-who:str b)) (:tr (:th (cl-who:str b))
(dolist (r results) (dolist (r results)
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
:setup 'cl-bench.misc::setup-walk-list/seq :setup 'cl-bench.misc::setup-walk-list/seq
:function 'cl-bench.misc:walk-list/seq :function 'cl-bench.misc:walk-list/seq
:runs 2 :runs 2
:disabled-for '(:lispworks-personal-edition :armedbear :ALLEGRO-CL-EXPRESS)) :disabled-for '(:lispworks-personal-edition :armedbear :allegro-cl-express :ecl-bytecmp))
(defbench walk-list/mess (defbench walk-list/mess
:group :misc :group :misc
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
:setup 'cl-bench.misc::setup-walk-list/mess :setup 'cl-bench.misc::setup-walk-list/mess
:function 'cl-bench.misc:walk-list/mess :function 'cl-bench.misc:walk-list/mess
:runs 1 :runs 1
:disabled-for '(:lispworks-personal-edition :armedbear :poplog :ALLEGRO-CL-EXPRESS :clasp)) :disabled-for '(:lispworks-personal-edition :armedbear :poplog :allegro-cl-express :clasp :ecl-bytecmp))
(defbench boyer (defbench boyer
:group :gabriel :group :gabriel
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment