diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-01-24 17:42:39 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-01-28 16:31:38 +0100 |
| commit | 74e667d14912b9243043b43995848d962569a9a1 (patch) | |
| tree | 48bc9d3cc69c836e76e77037d06bf751575a2566 /tests | |
| parent | f3044a4b7b4fd8b51a65c95bca1d22b252863dc9 (diff) | |
| download | guix-74e667d14912b9243043b43995848d962569a9a1.tar guix-74e667d14912b9243043b43995848d962569a9a1.tar.gz | |
packages: Use '@' in package record printers.
* guix/packages.scm <package>: Use '@' in record printer.
* guix/import/cabal.scm <cabal-package>: Likewise
* guix/import/elpa.scm <elpa-package>: Likewise.
* tests/packages.scm: Adapt to it.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/packages.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 6a2f4f06e1..9d37fb68d6 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -58,7 +58,7 @@ (test-begin "packages") (test-assert "printer with location" - (string-match "^#<package foo-0 foo.scm:42 [[:xdigit:]]+>$" + (string-match "^#<package foo@0 foo.scm:42 [[:xdigit:]]+>$" (with-output-to-string (lambda () (write @@ -66,7 +66,7 @@ (location (make-location "foo.scm" 42 7)))))))) (test-assert "printer without location" - (string-match "^#<package foo-0 [[:xdigit:]]+>$" + (string-match "^#<package foo@0 [[:xdigit:]]+>$" (with-output-to-string (lambda () (write |