nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gexp: Add 'local-file' file name resolution test. 

* tests/gexp.scm ("local-file, relative file name"): New test.
This commit is contained in:
Ludovic Courtès 2016-06-16 09:33:24 +02:00
parent 0687fc9cd9
commit 4ff76a0a34
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/gexp.scm
View File

@ -24,6 +24,7 @@
#:use-module (guix derivations) #:use-module (guix derivations)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix tests) #:use-module (guix tests)
#:use-module ((guix build utils) #:select (with-directory-excursion))
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bootstrap) #:use-module (gnu packages bootstrap)
@ -133,6 +134,14 @@
(lambda () (lambda ()
(false-if-exception (delete-file link)))))) (false-if-exception (delete-file link))))))
(test-equal "local-file, relative file name"
(canonicalize-path (search-path %load-path "guix/base32.scm"))
(let ((directory (dirname (search-path %load-path
"guix/build-system/gnu.scm"))))
(with-directory-excursion directory
(let ((file (local-file "../guix/base32.scm")))
(local-file-absolute-file-name file)))))
(test-assertm "local-file, #:select?" (test-assertm "local-file, #:select?"
(mlet* %store-monad ((select? -> (lambda (file stat) (mlet* %store-monad ((select? -> (lambda (file stat)
(member (basename file) (member (basename file)