diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-29 19:11:09 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-29 21:18:12 +0100 |
| commit | 8b385969cf30c6646ec3cf78f1ee69e03029b7a1 (patch) | |
| tree | 37adbcbc1570f90a46ed4765b81ace44448445c7 /tests | |
| parent | 907c98acbbf533715983c61a1e53cb29a52c4bef (diff) | |
| download | patches-8b385969cf30c6646ec3cf78f1ee69e03029b7a1.tar patches-8b385969cf30c6646ec3cf78f1ee69e03029b7a1.tar.gz | |
tests: Factorize the 'dummy-package' macro.
* guix/tests.scm (dummy-package): New macro.
* tests/lint.scm (dummy-package): Remove.
* tests/packages.scm (dummy-package): Remove.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lint.scm | 7 | ||||
| -rw-r--r-- | tests/packages.scm | 7 |
2 files changed, 1 insertions, 13 deletions
diff --git a/tests/lint.scm b/tests/lint.scm index 8ae129d9fe..e7e548b626 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -19,6 +19,7 @@ (define-module (test-packages) + #:use-module (guix tests) #:use-module (guix build download) #:use-module (guix build-system gnu) #:use-module (guix packages) @@ -105,12 +106,6 @@ requests." (test-begin "lint") -(define-syntax-rule (dummy-package name* extra-fields ...) - (package extra-fields ... (name name*) (version "0") (source #f) - (build-system gnu-build-system) - (synopsis #f) (description #f) - (home-page #f) (license #f) )) - (define (call-with-warnings thunk) (let ((port (open-output-string))) (parameterize ((guix-warning-port port)) diff --git a/tests/packages.scm b/tests/packages.scm index 98fa9b5698..f7d6155ecc 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -48,13 +48,6 @@ (define %store (open-connection-for-tests)) -(define-syntax-rule (dummy-package name* extra-fields ...) - (package (name name*) (version "0") (source #f) - (build-system gnu-build-system) - (synopsis #f) (description #f) - (home-page #f) (license #f) - extra-fields ...)) - (test-begin "packages") |