mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-28 03:51:53 +02:00
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.
This commit is contained in:
+2
-2
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user