Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
cl-bench
Commits
d14c364e
Commit
d14c364e
authored
Jun 01, 2016
by
Daniel Kochmański
Browse files
tests: add disabled for ecl-bytecmp
Also fix error in html-report
parent
638ac62d
Changes
2
Hide whitespace changes
Inline
Side-by-side
report/html-report.lisp
View file @
d14c364e
...
...
@@ -38,11 +38,12 @@
(
dolist
(
b
benchmarks
)
(
let*
((
results
(
loop
:for
i
in
implementations
: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
)
ir
-1
))))
(
best
(
apply
#'
min
(
remove-if
#'
minusp
results
))))
(
best
(
apply
#'
min
(
or
(
remove-if
#'
minusp
results
)
'
(
0
))
)))
(
cl-who:htm
(
:tr
(
:th
(
cl-who:str
b
))
(
dolist
(
r
results
)
...
...
tests.lisp
View file @
d14c364e
...
...
@@ -32,7 +32,7 @@
:setup
'cl-bench.misc::setup-walk-list/seq
:function
'cl-bench.misc:walk-list/seq
: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
:group
:misc
...
...
@@ -40,7 +40,7 @@
:setup
'cl-bench.misc::setup-walk-list/mess
:function
'cl-bench.misc:walk-list/mess
:runs
1
:disabled-for
'
(
:lispworks-personal-edition
:armedbear
:poplog
:
ALLEGRO-CL-EXPRESS
:clas
p
))
:disabled-for
'
(
:lispworks-personal-edition
:armedbear
:poplog
:
allegro-cl-express
:clasp
:ecl-bytecm
p
))
(
defbench
boyer
:group
:gabriel
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment