diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-12-30 12:23:32 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-12-30 12:23:32 -0500 |
| commit | 8cbb67e04509f0854762269e46a65ee4344388f7 (patch) | |
| tree | c44693193709650f19ea3ec264d5ed87170508f0 /guix/tests.scm | |
| parent | 7da473b75721e06237b106c6d186f2729117b1ee (diff) | |
| parent | 1c69e4ce3f33242ee8d209b8078fc78a73355446 (diff) | |
| download | guix-patches-8cbb67e04509f0854762269e46a65ee4344388f7.tar guix-patches-8cbb67e04509f0854762269e46a65ee4344388f7.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/tests.scm')
| -rw-r--r-- | guix/tests.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/guix/tests.scm b/guix/tests.scm index 022679902a..82ae7e2084 100644 --- a/guix/tests.scm +++ b/guix/tests.scm @@ -27,7 +27,8 @@ #:export (open-connection-for-tests random-text random-bytevector - with-derivation-narinfo)) + with-derivation-narinfo + dummy-package)) ;;; Commentary: ;;; @@ -120,6 +121,15 @@ substituter's viewpoint." (lambda () body ...))) +(define-syntax-rule (dummy-package name* extra-fields ...) + "Return a \"dummy\" package called NAME*, with all its compulsory fields +initialized with default values, and with EXTRA-FIELDS set as specified." + (package extra-fields ... + (name name*) (version "0") (source #f) + (build-system gnu-build-system) + (synopsis #f) (description #f) + (home-page #f) (license #f))) + ;; Local Variables: ;; eval: (put 'call-with-derivation-narinfo 'scheme-indent-function 1) ;; End: |