Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
cl-bench
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
ansi-test
cl-bench
Commits
e91c4595
Commit
e91c4595
authored
May 17, 2016
by
Daniel Kochmański
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
utility: add option to run test group or one test
CLOS requires :depends-on (TODO)
parent
8890db36
Pipeline
#98
skipped
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
16 additions
and
2 deletions
+16
-2
cl-bench.asd
cl-bench.asd
+1
-1
package.lisp
package.lisp
+3
-1
support.lisp
support.lisp
+12
-0
No files found.
cl-bench.asd
View file @
e91c4595
...
@@ -5,7 +5,7 @@
...
@@ -5,7 +5,7 @@
:author
"Eric Marsden"
:author
"Eric Marsden"
:maintainer
"Daniel 'jackdaniel' Kochmański"
:maintainer
"Daniel 'jackdaniel' Kochmański"
:license
"Public Domain"
:license
"Public Domain"
:depends-on
(
#:trivial-garbage
)
:depends-on
(
#:
alexandria
#:
trivial-garbage
)
:serial
t
:serial
t
:components
((
:file
"package"
)
:components
((
:file
"package"
)
(
:file
"cl-bench"
)
(
:file
"cl-bench"
)
...
...
package.lisp
View file @
e91c4595
...
@@ -2,5 +2,7 @@
...
@@ -2,5 +2,7 @@
(
defpackage
#:cl-bench
(
defpackage
#:cl-bench
(
:use
#:cl
)
(
:use
#:cl
)
(
:export
#:bench-run
(
:import-from
#:alexandria
#:ensure-list
)
(
:export
#:bench-run-1
#:bench-run
#:defbench
))
#:defbench
))
support.lisp
View file @
e91c4595
...
@@ -96,6 +96,18 @@
...
@@ -96,6 +96,18 @@
(
progn
,@
body
)
(
progn
,@
body
)
(
bench-report-footer
))))
(
bench-report-footer
))))
(
setf
(
fdefinition
'filter
)
#'
remove-if-not
)
(
defun
bench-run-1
(
&key
names
groups
&aux
(
names
(
ensure-list
names
))
(
groups
(
ensure-list
groups
)))
(
let
((
*benchmarks*
(
union
(
filter
(
lambda
(
%
)
(
member
%
names
))
*benchmarks*
:key
#'
benchmark-name
)
(
filter
(
lambda
(
%
)
(
member
%
groups
))
*benchmarks*
:key
#'
benchmark-group
))))
(
when
*benchmarks*
(
print
*benchmarks*
)
(
bench-run
))))
(
defun
bench-run
()
(
defun
bench-run
()
(
with-open-file
(
f
(
benchmark-report-file
)
(
with-open-file
(
f
(
benchmark-report-file
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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