mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
f29230e034
About mocking the record file accessors not working :(
51 lines
1.6 KiB
Scheme
51 lines
1.6 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-procedure ; TODO This only sometimes works :(
|
|
mock-inferior-package-name)
|
|
(mock
|
|
((guix inferior)
|
|
%inferior-package-version-procedure ; TODO This only sometimes works :(
|
|
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))))))))
|