ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Use 'test-assertm' for profiles.

Browse source 
* tests/profiles.scm (test-assertm): New macro.
  ("profile-derivation"): Use it instead of 'test-assert' +
  'run-with-store'.
This commit is contained in:
Ludovic Courtès 2014-12-15 22:47:55 +01:00
parent 6cb89466ba
commit ebf5ad46db
1 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tests/profiles.scm
View file

@ -35,6 +35,11 @@ (define-module (test-profiles)
(define %store (define %store
(open-connection-for-tests)) (open-connection-for-tests))
(define-syntax-rule (test-assertm name exp)
(test-assert name
(run-with-store %store exp
#:guile-for-build (%guile-for-build))))
;; Example manifest entries. ;; Example manifest entries.
(define guile-1.8.8 (define guile-1.8.8
@ -156,19 +161,18 @@ (define glibc
(equal? (list glibc) install) (equal? (list glibc) install)
(equal? (list (cons guile-1.8.8 guile-2.0.9)) upgrade))))) (equal? (list (cons guile-1.8.8 guile-2.0.9)) upgrade)))))
(test-assert "profile-derivation" (test-assertm "profile-derivation"
(run-with-store %store (mlet* %store-monad
(mlet* %store-monad ((entry -> (package->manifest-entry %bootstrap-guile))
((entry -> (package->manifest-entry %bootstrap-guile)) (guile (package->derivation %bootstrap-guile))
(guile (package->derivation %bootstrap-guile)) (drv (profile-derivation (manifest (list entry))
(drv (profile-derivation (manifest (list entry)) #:info-dir? #f))
#:info-dir? #f)) (profile -> (derivation->output-path drv))
(profile -> (derivation->output-path drv)) (bindir -> (string-append profile "/bin"))
(bindir -> (string-append profile "/bin")) (_ (built-derivations (list drv))))
(_ (built-derivations (list drv)))) (return (and (file-exists? (string-append bindir "/guile"))
(return (and (file-exists? (string-append bindir "/guile")) (string=? (dirname (readlink bindir))
(string=? (dirname (readlink bindir)) (derivation->output-path guile))))))
(derivation->output-path guile)))))))
(test-end "profiles") (test-end "profiles")