Commit 638ac62d authored by Karsten Poeck's avatar Karsten Poeck Committed by Daniel Kochmański

Adapt tests to further lisps

Closes #2
parent 081a2169
...@@ -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)) :disabled-for '(:lispworks-personal-edition :armedbear :ALLEGRO-CL-EXPRESS))
(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)) :disabled-for '(:lispworks-personal-edition :armedbear :poplog :ALLEGRO-CL-EXPRESS :clasp))
(defbench boyer (defbench boyer
:group :gabriel :group :gabriel
...@@ -178,7 +178,8 @@ ...@@ -178,7 +178,8 @@
(defbench fib-ratio (defbench fib-ratio
:group :math :group :math
:function 'cl-bench.math:run-fib-ratio :function 'cl-bench.math:run-fib-ratio
:runs 500) :runs 500
:disabled-for '(:clasp) )
(defbench ackermann (defbench ackermann
:group :math :group :math
...@@ -191,7 +192,8 @@ ...@@ -191,7 +192,8 @@
:group :math :group :math
:long "Mandelbrot Set computation using complex numbers" :long "Mandelbrot Set computation using complex numbers"
:function 'cl-bench.math:run-mandelbrot/complex :function 'cl-bench.math:run-mandelbrot/complex
:runs 100) :runs 100
:disabled-for '(:clasp))
(defbench mandelbrot/dfloat (defbench mandelbrot/dfloat
:group :math :group :math
...@@ -247,22 +249,26 @@ ...@@ -247,22 +249,26 @@
(defbench pi-decimal/small (defbench pi-decimal/small
:group :bignum :group :bignum
:function 'cl-bench.bignum:run-pi-decimal/small :function 'cl-bench.bignum:run-pi-decimal/small
:runs 100) :runs 100
:disabled-for '(:clasp))
(defbench pi-decimal/big (defbench pi-decimal/big
:group :bignum :group :bignum
:function 'cl-bench.bignum:run-pi-decimal/big :function 'cl-bench.bignum:run-pi-decimal/big
:runs 2) :runs 2
:disabled-for '(:clasp))
(defbench pi-atan (defbench pi-atan
:group :bignum :group :bignum
:function 'cl-bench.bignum:run-pi-atan :function 'cl-bench.bignum:run-pi-atan
:runs 200) :runs 200
:disabled-for '(:clasp))
(defbench pi-ratios (defbench pi-ratios
:group :bignum :group :bignum
:function 'cl-bench.ratios:run-pi-ratios :function 'cl-bench.ratios:run-pi-ratios
:runs 2) :runs 2
:disabled-for '(:clasp))
(defbench hash-strings (defbench hash-strings
:group :hash :group :hash
...@@ -289,7 +295,8 @@ ...@@ -289,7 +295,8 @@
(defbench deflate-file (defbench deflate-file
:group :misc :group :misc
:function 'cl-bench.deflate:run-deflate-file :function 'cl-bench.deflate:run-deflate-file
:runs 100) :runs 100
:disabled-for '(:clasp))
;; these tests exceed the limited stack size in the trial version of LW ;; these tests exceed the limited stack size in the trial version of LW
(defbench 1d-arrays (defbench 1d-arrays
...@@ -311,7 +318,7 @@ ...@@ -311,7 +318,7 @@
:long "Adding together two 3-dimensional arrays" :long "Adding together two 3-dimensional arrays"
:function 'cl-bench.arrays:bench-3d-arrays :function 'cl-bench.arrays:bench-3d-arrays
:runs 1 :runs 1
:disabled-for '(:lispworks-personal-edition)) :disabled-for '(:lispworks-personal-edition :ALLEGRO-CL-EXPRESS))
;; Poplog seems to have a buggy implementation of bitvectors ;; Poplog seems to have a buggy implementation of bitvectors
(defbench bitvectors (defbench bitvectors
...@@ -344,7 +351,7 @@ ...@@ -344,7 +351,7 @@
:long "WITH-OUTPUT-TO-STRING and much output" :long "WITH-OUTPUT-TO-STRING and much output"
:function 'cl-bench.arrays:bench-string-concat :function 'cl-bench.arrays:bench-string-concat
:runs 1 :runs 1
:disabled-for '(:allegro :lispworks-personal-edition :poplog)) :disabled-for '(:allegro :lispworks-personal-edition :poplog :clisp))
(defbench search-sequence (defbench search-sequence
:group :sequence :group :sequence
......
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