From 8b385969cf30c6646ec3cf78f1ee69e03029b7a1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 29 Dec 2014 19:11:09 +0100 Subject: 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. --- tests/lint.scm | 7 +------ tests/packages.scm | 7 ------- 2 files changed, 1 insertion(+), 13 deletions(-) (limited to 'tests') 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") -- cgit v1.2.3