diff options
author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-08 09:41:45 -0500 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-08 09:41:45 -0500 |
commit | d88cee1d44a475b6ea276e87a4c98682255b881e (patch) | |
tree | f2e681b5211840d4eef688120041c2dd730002cc /guix/build/dune-build-system.scm | |
parent | d2b9b4b861b71d11eaeaa12fe544c9ffb0b6644d (diff) | |
parent | 20059f92a97726b40d4d74e67463a64c98d1da0d (diff) |
Merge branch 'master' into staging.
With conflicts resolved in:
gnu/packages/version-control.scm
Diffstat (limited to 'guix/build/dune-build-system.scm')
-rw-r--r-- | guix/build/dune-build-system.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/dune-build-system.scm b/guix/build/dune-build-system.scm index e9ccc71057..f311cd37f1 100644 --- a/guix/build/dune-build-system.scm +++ b/guix/build/dune-build-system.scm @@ -42,13 +42,13 @@ build-flags))) #t) -(define* (check #:key (test-flags '()) (test-target "test") tests? +(define* (check #:key (test-flags '()) tests? (jbuild? #f) (package #f) (dune-release-flags '()) #:allow-other-keys) "Test the given package." (when tests? (let ((program (if jbuild? "jbuilder" "dune"))) - (apply invoke program "runtest" test-target + (apply invoke program "runtest" (append (if package (list "-p" package) dune-release-flags) test-flags)))) |