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

tests: Don't rely on temporary directories being permanent. 

* tests/gexp.scm ("gexp->script #:module-path",
"program-file #:module-path"): Use run-with-store.
master
Leo Famulari 2018-07-13 15:53:25 -04:00
parent 82da291abe
commit 92bcccc51f
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 29 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/gexp.scm
View File

@ -948,7 +948,7 @@
(return (and (zero? (close-pipe pipe)) (return (and (zero? (close-pipe pipe))
(= (expt n 2) (string->number str))))))) (= (expt n 2) (string->number str)))))))
(test-assertm "gexp->script #:module-path" (test-assert "gexp->script #:module-path"
(call-with-temporary-directory (call-with-temporary-directory
(lambda (directory) (lambda (directory)
(define str (define str
@ -961,6 +961,7 @@
(define-public %fake! ,str)) (define-public %fake! ,str))
port))) port)))
(run-with-store %store
(mlet* %store-monad ((exp -> (with-imported-modules '((guix base32)) (mlet* %store-monad ((exp -> (with-imported-modules '((guix base32))
(gexp (begin (gexp (begin
(use-modules (guix base32)) (use-modules (guix base32))
@ -977,7 +978,7 @@
(match data (match data
((load-path str*) ((load-path str*)
(and (string=? str* str) (and (string=? str* str)
(not (member directory load-path)))))))))))) (not (member directory load-path)))))))))))))
(test-assertm "program-file" (test-assertm "program-file"
(let* ((n (random (expt 2 50))) (let* ((n (random (expt 2 50)))
@ -996,7 +997,7 @@
(return (and (zero? (close-pipe pipe)) (return (and (zero? (close-pipe pipe))
(= n (string->number str))))))))) (= n (string->number str)))))))))
(test-assertm "program-file #:module-path" (test-assert "program-file #:module-path"
(call-with-temporary-directory (call-with-temporary-directory
(lambda (directory) (lambda (directory)
(define text (random-text)) (define text (random-text))
@ -1014,6 +1015,7 @@
(file (program-file "program" exp (file (program-file "program" exp
#:guile %bootstrap-guile #:guile %bootstrap-guile
#:module-path (list directory)))) #:module-path (list directory))))
(run-with-store %store
(mlet* %store-monad ((drv (lower-object file)) (mlet* %store-monad ((drv (lower-object file))
(out -> (derivation->output-path drv))) (out -> (derivation->output-path drv)))
(mbegin %store-monad (mbegin %store-monad
@ -1021,7 +1023,7 @@
(let* ((pipe (open-input-pipe out)) (let* ((pipe (open-input-pipe out))
(str (get-string-all pipe))) (str (get-string-all pipe)))
(return (and (zero? (close-pipe pipe)) (return (and (zero? (close-pipe pipe))
(string=? text str)))))))))) (string=? text str)))))))))))
(test-assertm "program-file & with-extensions" (test-assertm "program-file & with-extensions"
(let* ((exp (with-extensions (list %extension-package) (let* ((exp (with-extensions (list %extension-package)