From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jochem Raat Subject: bug#21226: FAIL: tests/containers.scm Date: Sun, 09 Aug 2015 22:12:03 +0200 Message-ID: <55C7B413.1070003@riseup.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------090007090609060401040007" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50038) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOZl9-0001ME-13 for bug-guix@gnu.org; Sun, 09 Aug 2015 19:12:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZOZl4-0005WF-UJ for bug-guix@gnu.org; Sun, 09 Aug 2015 19:12:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:59300) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOZl4-0005W5-LA for bug-guix@gnu.org; Sun, 09 Aug 2015 19:12:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1ZOZl4-0002DM-1g for bug-guix@gnu.org; Sun, 09 Aug 2015 19:12:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51748) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOWx3-0008Um-6k for bug-guix@gnu.org; Sun, 09 Aug 2015 16:12:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZOWwz-0004Qk-Sa for bug-guix@gnu.org; Sun, 09 Aug 2015 16:12:13 -0400 Received: from mx1.riseup.net ([198.252.153.129]:48272) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOWwz-0004Qc-JD for bug-guix@gnu.org; Sun, 09 Aug 2015 16:12:09 -0400 Received: from piha.riseup.net (unknown [10.0.1.162]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (Client CN "*.riseup.net", Issuer "COMODO RSA Domain Validation Secure Server CA" (verified OK)) by mx1.riseup.net (Postfix) with ESMTPS id 47843C1EC9 for ; Sun, 9 Aug 2015 13:12:08 -0700 (PDT) List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org To: 21226@debbugs.gnu.org This is a multi-part message in MIME format. --------------090007090609060401040007 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable During the running of make check on the guix 0.8.3 source tarball, test/containers.scm failed. I don't know enough about guix to understand why, but the manual said to report it to this email-adress. Please tell me if you need me to do more tests. Attached are the test-suite.log and containers.log. --------------090007090609060401040007 Content-Type: text/x-log; name="test-suite.log" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="test-suite.log" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D GNU Guix 0.8.3: ./test-suite.log =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D # TOTAL: 44 # PASS: 43 # SKIP: 0 # XFAIL: 0 # FAIL: 1 # XPASS: 0 # ERROR: 0 =2E. contents:: :depth: 2 FAIL: tests/containers =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace tests/containers.scm:53: FAIL call-with-container, pid namespace tests/containers.scm:68: FAIL call-with-container, mnt namespace %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace tests/containers.scm:53: FAIL call-with-container, pid namespace tests/containers.scm:68: FAIL call-with-container, mnt namespace tests/containers.scm:75: FAIL call-with-container, all namespaces tests/containers.scm:81: FAIL container-excursion # of unexpected failures 6 %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace tests/containers.scm:53: FAIL call-with-container, pid namespace tests/containers.scm:68: FAIL call-with-container, mnt namespace tests/containers.scm:75: FAIL call-with-container, all namespaces %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace tests/containers.scm:53: FAIL call-with-container, pid namespace %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace tests/containers.scm:43: FAIL call-with-container, uts namespace %%%% Starting test containers (Writing full log to "containers.log") tests/containers.scm:35: FAIL call-with-container, user namespace %%%% Starting test containers (Writing full log to "containers.log") --------------090007090609060401040007 Content-Type: text/x-log; name="containers.log" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="containers.log" %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12237/setgroups") (2)) Test begin: test-name: "call-with-container, mnt namespace" source-file: "tests/containers.scm" source-line: 68 source-form: (test-assert "call-with-container, mnt namespace" (zero? (= call-with-container (quote (("none" device "/testing" "tmpfs" () #f #f)))= (lambda () (assert-exit (file-exists? "/testing"))) #:namespaces (quote = (user mnt))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12242/setgroups") (2)) Test begin: test-name: "call-with-container, all namespaces" source-file: "tests/containers.scm" source-line: 75 source-form: (test-assert "call-with-container, all namespaces" (zero? = (call-with-container (quote ()) (lambda () (primitive-exit 0))))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12237/setgroups") (2)) Test begin: test-name: "call-with-container, mnt namespace" source-file: "tests/containers.scm" source-line: 68 source-form: (test-assert "call-with-container, mnt namespace" (zero? (= call-with-container (quote (("none" device "/testing" "tmpfs" () #f #f)))= (lambda () (assert-exit (file-exists? "/testing"))) #:namespaces (quote = (user mnt))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12242/setgroups") (2)) Test begin: test-name: "call-with-container, all namespaces" source-file: "tests/containers.scm" source-line: 75 source-form: (test-assert "call-with-container, all namespaces" (zero? = (call-with-container (quote ()) (lambda () (primitive-exit 0))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12250/setgroups") (2)) Test begin: test-name: "container-excursion" source-file: "tests/containers.scm" source-line: 81 source-form: (test-assert "container-excursion" (call-with-temporary-di= rectory (lambda (root) (match (list (pipe) (pipe)) (((start-in . start-ou= t) (end-in . end-out)) (define (container) (close end-out) (close start-i= n) (write (quote ready) start-out) (close start-out) (read end-in) (close= end-in)) (define (namespaces pid) (let ((pid (number->string pid))) (map= (lambda (ns) (readlink (string-append "/proc/" pid "/ns/" ns))) (quote (= "user" "ipc" "uts" "net" "pid" "mnt"))))) (let* ((pid (run-container root= (quote ()) %namespaces container)) (container-namespaces (namespaces pid= )) (result (begin (close start-out) (read start-in) (close start-in) (con= tainer-excursion pid (lambda () (match (primitive-fork) (0 (assert-exit (= equal? container-namespaces (namespaces (getpid))))) (fork-pid (match (wa= itpid fork-pid) ((_ . status) (primitive-exit (status:exit-val status))))= ))))))) (close end-in) (write (quote done) end-out) (close end-out) (wait= pid pid) (zero? result))))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12254/setgroups") (2)) Group end: containers # of unexpected failures 6 %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12237/setgroups") (2)) Test begin: test-name: "call-with-container, mnt namespace" source-file: "tests/containers.scm" source-line: 68 source-form: (test-assert "call-with-container, mnt namespace" (zero? (= call-with-container (quote (("none" device "/testing" "tmpfs" () #f #f)))= (lambda () (assert-exit (file-exists? "/testing"))) #:namespaces (quote = (user mnt))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12242/setgroups") (2)) Test begin: test-name: "call-with-container, all namespaces" source-file: "tests/containers.scm" source-line: 75 source-form: (test-assert "call-with-container, all namespaces" (zero? = (call-with-container (quote ()) (lambda () (primitive-exit 0))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12250/setgroups") (2)) Test begin: test-name: "container-excursion" source-file: "tests/containers.scm" source-line: 81 source-form: (test-assert "container-excursion" (call-with-temporary-di= rectory (lambda (root) (match (list (pipe) (pipe)) (((start-in . start-ou= t) (end-in . end-out)) (define (container) (close end-out) (close start-i= n) (write (quote ready) start-out) (close start-out) (read end-in) (close= end-in)) (define (namespaces pid) (let ((pid (number->string pid))) (map= (lambda (ns) (readlink (string-append "/proc/" pid "/ns/" ns))) (quote (= "user" "ipc" "uts" "net" "pid" "mnt"))))) (let* ((pid (run-container root= (quote ()) %namespaces container)) (container-namespaces (namespaces pid= )) (result (begin (close start-out) (read start-in) (close start-in) (con= tainer-excursion pid (lambda () (match (primitive-fork) (0 (assert-exit (= equal? container-namespaces (namespaces (getpid))))) (fork-pid (match (wa= itpid fork-pid) ((_ . status) (primitive-exit (status:exit-val status))))= ))))))) (close end-in) (write (quote done) end-out) (close end-out) (wait= pid pid) (zero? result))))))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12237/setgroups") (2)) Test begin: test-name: "call-with-container, mnt namespace" source-file: "tests/containers.scm" source-line: 68 source-form: (test-assert "call-with-container, mnt namespace" (zero? (= call-with-container (quote (("none" device "/testing" "tmpfs" () #f #f)))= (lambda () (assert-exit (file-exists? "/testing"))) #:namespaces (quote = (user mnt))))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12230/setgroups") (2)) Test begin: test-name: "call-with-container, pid namespace" source-file: "tests/containers.scm" source-line: 53 source-form: (test-assert "call-with-container, pid namespace" (zero? (= call-with-container (quote ()) (lambda () (match (primitive-fork) (0 (ass= ert-exit (=3D 2 (getpid)))) (pid (primitive-exit (match (waitpid pid) ((_= . status) (status:exit-val status))))))) #:namespaces (quote (user pid))= ))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) Test end: result-kind: fail actual-value: #f actual-error: (system-error "open-file" "~A: ~S" ("No such file or dire= ctory" "/proc/12229/setgroups") (2)) Test begin: test-name: "call-with-container, uts namespace" source-file: "tests/containers.scm" source-line: 43 source-form: (test-assert "call-with-container, uts namespace" (zero? (= call-with-container (quote ()) (lambda () (sethostname "test-container") = (primitive-exit 0)) #:namespaces (quote (user uts))))) %%%% Starting test containers Group begin: containers Test begin: test-name: "call-with-container, user namespace" source-file: "tests/containers.scm" source-line: 35 source-form: (test-assert "call-with-container, user namespace" (zero? = (call-with-container (quote ()) (lambda () (assert-exit (and (zero? (getu= id)) (zero? (getgid))))) #:namespaces (quote (user))))) --------------090007090609060401040007--