Paste number 147912: profile.log guix

Index of paste annotations: 1 | 2

Paste number 147912: profile.log guix
Pasted by: mthl
When:6 years, 6 months ago
Share:Tweet this! | http://paste.lisp.org/+364O
Channel:None
Paste contents:
Raw Source | XML | Display As
%%%% Starting test profiles
Group begin: profiles
Test begin:
  test-name: "manifest-installed?"
  source-file: "tests/profiles.scm"
  source-line: 77
  source-form: (test-assert "manifest-installed?" (let ((m (manifest (list guile-2.0.9 guile-2.0.9:debug)))) (and (manifest-installed? m (manifest-pattern (name "guile"))) (manifest-installed? m (manifest-pattern (name "guile") (output "debug"))) (manifest-installed? m (manifest-pattern (name "guile") (output "out") (version "2.0.9"))) (not (manifest-installed? m (manifest-pattern (name "guile") (version "1.8.8")))) (not (manifest-installed? m (manifest-pattern (name "guile") (output "foobar")))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-matching-entries"
  source-file: "tests/profiles.scm"
  source-line: 90
  source-form: (test-assert "manifest-matching-entries" (let* ((e (list guile-2.0.9 guile-2.0.9:debug)) (m (manifest e))) (and (null? (manifest-matching-entries m (list (manifest-pattern (name "python"))))) (equal? e (manifest-matching-entries m (list (manifest-pattern (name "guile") (output #f))))) (equal? (list guile-2.0.9) (manifest-matching-entries m (list (manifest-pattern (name "guile") (version "2.0.9"))))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-remove"
  source-file: "tests/profiles.scm"
  source-line: 107
  source-form: (test-assert "manifest-remove" (let* ((m0 (manifest (list guile-2.0.9 guile-2.0.9:debug))) (m1 (manifest-remove m0 (list (manifest-pattern (name "guile"))))) (m2 (manifest-remove m1 (list (manifest-pattern (name "guile"))))) (m3 (manifest-remove m2 (list (manifest-pattern (name "guile") (output "debug"))))) (m4 (manifest-remove m3 (list (manifest-pattern (name "guile")))))) (match (manifest-entries m2) ((($ <manifest-entry> "guile" "2.0.9" "debug")) (and (equal? m1 m2) (null? (manifest-entries m3)) (null? (manifest-entries m4)))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-add"
  source-file: "tests/profiles.scm"
  source-line: 124
  source-form: (test-assert "manifest-add" (let* ((m0 (manifest (quote ()))) (m1 (manifest-add m0 (list guile-1.8.8))) (m2 (manifest-add m1 (list guile-2.0.9))) (m3 (manifest-add m2 (list guile-2.0.9:debug))) (m4 (manifest-add m3 (list guile-2.0.9:debug)))) (and (match (manifest-entries m1) ((($ <manifest-entry> "guile" "1.8.8" "out")) #t) (_ #f)) (match (manifest-entries m2) ((($ <manifest-entry> "guile" "2.0.9" "out")) #t) (_ #f)) (equal? m3 m4))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-perform-transaction"
  source-file: "tests/profiles.scm"
  source-line: 138
  source-form: (test-assert "manifest-perform-transaction" (let* ((m0 (manifest (list guile-2.0.9 guile-2.0.9:debug))) (t1 (manifest-transaction (install (list guile-1.8.8)) (remove (list (manifest-pattern (name "guile") (output "debug")))))) (t2 (manifest-transaction (remove (list (manifest-pattern (name "guile") (version "2.0.9") (output #f)))))) (m1 (manifest-perform-transaction m0 t1)) (m2 (manifest-perform-transaction m1 t2)) (m3 (manifest-perform-transaction m0 t2))) (and (match (manifest-entries m1) ((($ <manifest-entry> "guile" "1.8.8" "out")) #t) (_ #f)) (equal? m1 m2) (null? (manifest-entries m3)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-transaction-effects"
  source-file: "tests/profiles.scm"
  source-line: 157
  source-form: (test-assert "manifest-transaction-effects" (let* ((m0 (manifest (list guile-1.8.8))) (t (manifest-transaction (install (list guile-2.0.9 glibc)) (remove (list (manifest-pattern (name "coreutils"))))))) (let-values (((remove install upgrade downgrade) (manifest-transaction-effects m0 t))) (and (null? remove) (null? downgrade) (equal? (list glibc) install) (equal? (list (cons guile-1.8.8 guile-2.0.9)) upgrade)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-transaction-effects and downgrades"
  source-file: "tests/profiles.scm"
  source-line: 168
  source-form: (test-assert "manifest-transaction-effects and downgrades" (let* ((m0 (manifest (list guile-2.0.9))) (t (manifest-transaction (install (list guile-1.8.8))))) (let-values (((remove install upgrade downgrade) (manifest-transaction-effects m0 t))) (and (null? remove) (null? install) (null? upgrade) (equal? (list (cons guile-2.0.9 guile-1.8.8)) downgrade)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "manifest-transaction-effects and pseudo-upgrades"
  source-file: "tests/profiles.scm"
  source-line: 176
  source-form: (test-assert "manifest-transaction-effects and pseudo-upgrades" (let* ((m0 (manifest (list guile-2.0.9))) (t (manifest-transaction (install (list guile-2.0.9))))) (let-values (((remove install upgrade downgrade) (manifest-transaction-effects m0 t))) (and (null? remove) (null? install) (null? downgrade) (equal? (list (cons guile-2.0.9 guile-2.0.9)) upgrade)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "profile-derivation"
  source-file: "tests/profiles.scm"
  source-line: 184
  source-form: (test-assert "profile-derivation" (run-with-store %store (mlet* %store-monad ((entry -> (package->manifest-entry %bootstrap-guile)) (guile (package->derivation %bootstrap-guile)) (drv (profile-derivation (manifest (list entry)) #:hooks (quote ()))) (profile -> (derivation->output-path drv)) (bindir -> (string-append profile "/bin")) (_ (built-derivations (list drv)))) (return (and (file-exists? (string-append bindir "/guile")) (string=? (dirname (readlink bindir)) (derivation->output-path guile))))) #:guile-for-build (%guile-for-build)))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "profile-derivation, inputs"
  source-file: "tests/profiles.scm"
  source-line: 197
  source-form: (test-assert "profile-derivation, inputs" (run-with-store %store (mlet* %store-monad ((entry -> (package->manifest-entry packages:glibc "debug")) (drv (profile-derivation (manifest (list entry)) #:hooks (quote ())))) (return (derivation-inputs drv))) #:guile-for-build (%guile-for-build)))
Test end:
  result-kind: pass
  actual-value: (#<<derivation-input> path: "/home/mthl/src/gnu/guix/test-tmp/store/gwnzh473qizx1hz57va9kawbwyryk4k6-guile-bootstrap-2.0.drv" sub-derivations: ("out")> #<<derivation-input> path: "/home/mthl/src/gnu/guix/test-tmp/store/q9fjns4v7aqjghpivf4p6fbq5vjljsdl-module-import.drv" sub-derivations: ("out")> #<<derivation-input> path: "/home/mthl/src/gnu/guix/test-tmp/store/7dqnx61bfk2awv74fy3br4qw7m6yips8-module-import-compiled.drv" sub-derivations: ("out")> #<<derivation-input> path: "/home/mthl/src/gnu/guix/test-tmp/store/94pv0w2rqib04hy4njqdafqdbxczm5qj-linux-libre-headers-3.14.37.drv" sub-derivations: ("out")> #<<derivation-input> path: "/home/mthl/src/gnu/guix/test-tmp/store/h1h42bc85d9xaxnbvrij5h4q852h0qiy-glibc-2.21.drv" sub-derivations: ("debug")>)
Test begin:
  test-name: "profile-manifest, search-paths"
  source-file: "tests/profiles.scm"
  source-line: 204
  source-form: (test-assert "profile-manifest, search-paths" (run-with-store %store (mlet* %store-monad ((guile -> (package (inherit %bootstrap-guile) (native-search-paths (package-native-search-paths packages:guile-2.0)))) (entry -> (package->manifest-entry guile)) (drv (profile-derivation (manifest (list entry)) #:hooks (quote ()))) (profile -> (derivation->output-path drv))) (mbegin %store-monad (built-derivations (list drv)) (let ((manifest (profile-manifest profile))) (match (manifest-entries manifest) ((result) (return (equal? (manifest-entry-search-paths result) (manifest-entry-search-paths entry) (package-native-search-paths packages:guile-2.0)))))))) #:guile-for-build (%guile-for-build)))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "etc/profile"
  source-file: "tests/profiles.scm"
  source-line: 226
  source-form: (test-assert "etc/profile" (run-with-store %store (mlet* %store-monad ((guile -> (package (inherit %bootstrap-guile) (native-search-paths (package-native-search-paths packages:guile-2.0)))) (entry -> (package->manifest-entry guile)) (drv (profile-derivation (manifest (list entry)) #:hooks (quote ()))) (profile -> (derivation->output-path drv))) (mbegin %store-monad (built-derivations (list drv)) (let* ((pipe (open-input-pipe (string-append "source " profile "/etc/profile; " "unset GUIX_PROFILE; set"))) (env (get-string-all pipe))) (return (and (zero? (close-pipe pipe)) (string-contains env (string-append "PATH=" profile "/bin"))))))) #:guile-for-build (%guile-for-build)))
Test end:
  result-kind: fail
  actual-value: #f
Group end: profiles
# of expected passes      11
# of unexpected failures  1

Annotations for this paste:

Annotation number 1: with ". ".
Pasted by: mthl
When:6 years, 6 months ago
Share:Tweet this! | http://paste.lisp.org/+364O/1
Paste contents:
Raw Source | Display As
Test begin:
  test-name: "etc/profile"
  source-file: "tests/profiles.scm"
  source-line: 226
  source-form: (test-assert "etc/profile" (run-with-store %store (mlet* %store-monad ((guile -> (package (inherit %bootstrap-guile) (native-search-paths (package-native-search-paths packages:guile-2.0)))) (entry -> (package->manifest-entry guile)) (drv (profile-derivation (manifest (list entry)) #:hooks (quote ()))) (profile -> (derivation->output-path drv))) (mbegin %store-monad (built-derivations (list drv)) (let* ((pipe (open-input-pipe (string-append ". " profile "/etc/profile; " "unset GUIX_PROFILE; set"))) (env (get-string-all pipe))) (return (and (zero? (close-pipe pipe)) (string-contains env (string-append "PATH=" profile "/bin"))))))) #:guile-for-build (%guile-for-build)))
Test end:
  result-kind: fail
  actual-value: #f
Group end: profiles
# of expected passes      11
# of unexpected failures  1

Annotation number 2: untitled
Pasted by: mthl
When:6 years, 6 months ago
Share:Tweet this! | http://paste.lisp.org/+364O/2
Paste contents:
Raw Source | Display As
======================================
   GNU Guix 0.8.2: ./test-suite.log
======================================

# TOTAL: 37
# PASS:  36
# SKIP:  0
# XFAIL: 0
# FAIL:  1
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: tests/profiles
====================

accepted connection from pid 7263, uid 1000
%%%% Starting test profiles  (Writing full log to "profiles.log")
tests/profiles.scm:226: FAIL etc/profile
# of expected passes      11
# of unexpected failures  1
;;; note: source file ./srfi/srfi-64.scm
;;;       newer than compiled /usr/lib/x86_64-linux-gnu/guile/2.0/ccache/srfi/srfi-64.go
519 operations

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.