diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-21 12:06:11 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-21 17:47:35 +0100 |
| commit | 527551287011888c2ba13fe92e636300ce625430 (patch) | |
| tree | 47f7743d5d3a70edc60e03cb135e016f3155681f /tests/transformations.scm | |
| parent | 9608f4003dedd8dfe99327c15668ca1a43ebd93b (diff) | |
| download | guix-527551287011888c2ba13fe92e636300ce625430.tar guix-527551287011888c2ba13fe92e636300ce625430.tar.gz | |
tests: Check the effect of '--without-tests' on implicit inputs.
* tests/transformations.scm ("options->transformation, without-tests"):
Ensure TAR has #:tests? #f.
Diffstat (limited to 'tests/transformations.scm')
| -rw-r--r-- | tests/transformations.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/transformations.scm b/tests/transformations.scm index 07ed8b1234..2d33bed7ae 100644 --- a/tests/transformations.scm +++ b/tests/transformations.scm @@ -368,10 +368,9 @@ (let ((new (t p))) (match (bag-direct-inputs (package->bag new)) ((("dep" dep) ("tar" tar) _ ...) - ;; TODO: Check whether TAR has #:tests? #f when transformations - ;; apply to implicit inputs. - (equal? (package-arguments dep) - '(#:tests? #f))))))) + (and (equal? (package-arguments dep) '(#:tests? #f)) + (match (memq #:tests? (package-arguments tar)) + ((#:tests? #f _ ...) #t)))))))) (test-end) |