Christopher Baines
7341d17254
Store the location a package can be found at, and display this on the package page. If available, link off to the git repository containing the package.
51 lines
1.5 KiB
Scheme
51 lines
1.5 KiB
Scheme
(define-module (tests mock-inferior)
|
|
#:use-module (guix records)
|
|
#:use-module (guix tests)
|
|
#:export (<mock-inferior-package>
|
|
mock-inferior-package
|
|
mock-inferior-package?
|
|
mock-inferior-package-name
|
|
mock-inferior-package-version
|
|
mock-inferior-package-synopsis
|
|
mock-inferior-package-description
|
|
mock-inferior-package-home-page
|
|
mock-inferior-package-location
|
|
|
|
with-mock-inferior-packages))
|
|
|
|
(define-record-type* <mock-inferior-package>
|
|
mock-inferior-package make-mock-inferior-pacakge
|
|
mock-inferior-package?
|
|
(name mock-inferior-package-name)
|
|
(version mock-inferior-package-version)
|
|
(synopsis mock-inferior-package-synopsis)
|
|
(description mock-inferior-package-description)
|
|
(home-page mock-inferior-package-home-page)
|
|
(location mock-inferior-package-location))
|
|
|
|
(define (with-mock-inferior-packages f)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-name
|
|
mock-inferior-package-name)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-version
|
|
mock-inferior-package-version)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-synopsis
|
|
mock-inferior-package-synopsis)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-description
|
|
mock-inferior-package-description)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-home-page
|
|
mock-inferior-package-home-page)
|
|
(mock
|
|
((guix inferior)
|
|
inferior-package-location
|
|
mock-inferior-package-location)
|
|
(f))))))))
|