From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jan Synacek Newsgroups: gmane.lisp.guile.devel Subject: Re: Guile 2.0.6 - some tests fail Date: Thu, 11 Oct 2012 04:43:16 -0400 (EDT) Message-ID: <890874942.11411516.1349944996141.JavaMail.root@redhat.com> References: <87sj9nuxut.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_Part_11411515_111982302.1349944996140" X-Trace: ger.gmane.org 1349945017 29856 80.91.229.3 (11 Oct 2012 08:43:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 11 Oct 2012 08:43:37 +0000 (UTC) Cc: Mark H Weaver , guile-devel@gnu.org To: Ludovic =?utf-8?Q?Court=C3=A8s?= Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Oct 11 10:43:41 2012 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TMEMl-0001Yl-14 for guile-devel@m.gmane.org; Thu, 11 Oct 2012 10:43:39 +0200 Original-Received: from localhost ([::1]:51678 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TMEMe-0004dP-M8 for guile-devel@m.gmane.org; Thu, 11 Oct 2012 04:43:32 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:60319) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TMEMW-0004cp-8L for guile-devel@gnu.org; Thu, 11 Oct 2012 04:43:30 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TMEMQ-0006P6-91 for guile-devel@gnu.org; Thu, 11 Oct 2012 04:43:24 -0400 Original-Received: from mx4-phx2.redhat.com ([209.132.183.25]:50921) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TMEMQ-0006Oh-0U; Thu, 11 Oct 2012 04:43:18 -0400 Original-Received: from zmail11.collab.prod.int.phx2.redhat.com (zmail11.collab.prod.int.phx2.redhat.com [10.5.83.13]) by mx4-phx2.redhat.com (8.13.8/8.13.8) with ESMTP id q9B8hGRK021926; Thu, 11 Oct 2012 04:43:16 -0400 In-Reply-To: <87sj9nuxut.fsf@gnu.org> X-Originating-IP: [94.112.165.154] X-Mailer: Zimbra 7.2.0_GA_2669 (ZimbraWebClient - FF3.0 (Linux)/7.2.0_GA_2669) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 209.132.183.25 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:14966 Archived-At: ------=_Part_11411515_111982302.1349944996140 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable ----- Original Message ----- > From: "Ludovic Court=C3=A8s" > To: "Jan Synacek" > Cc: "Mark H Weaver" , guile-devel@gnu.org > Sent: Tuesday, October 9, 2012 11:41:46 PM > Subject: Re: Guile 2.0.6 - some tests fail >=20 > Hi, >=20 > And now with the patch. >=20 > Mark H Weaver skribis: >=20 > >> FAIL: ftw.test: file-system-fold: test-suite (never enter) > >> FAIL: ftw.test: file-system-fold: test-suite/lib.scm (flat file) > >> FAIL: ftw.test: scandir: no select > >> FAIL: ports.test: %file-port-name-canonicalization: absolute > >> canonicalization from ice-9 >=20 > Can you try the following patch, then run =E2=80=9C./check-guile ftw.test > ports.test=E2=80=9D, and send the output? >=20 > TIA, > Ludo=E2=80=99. >=20 > =20 Hello, I'm sorry for such late responses. Sure, I will try. I will not have that computer available until the next monday though.. I also tried the tests (without the patch) on my home laptop and they passe= d. I use plain ext4 there, no lvm. Cheers, Jan ------=_Part_11411515_111982302.1349944996140 Content-Type: text/x-patch; charset=utf-8 Content-Transfer-Encoding: 7bit diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test index 33537d0..a3be1a7 100644 --- a/test-suite/tests/ftw.test +++ b/test-suite/tests/ftw.test @@ -189,7 +189,7 @@ (up (lambda (n s r) (cons `(up ,n) r))) (skip (lambda (n s r) (cons `(skip ,n) r))) (error (lambda (n s e r) (cons `(error ,n) r)))) - (equal? (file-system-fold enter? leaf down up skip error '() %test-dir) + (equal? (pk 'never-enter (file-system-fold enter? leaf down up skip error '() %test-dir)) `((skip , %test-dir))))) (pass-if "test-suite/lib.scm (flat file)" @@ -200,7 +200,7 @@ (skip (lambda (n s r) (cons `(skip ,n) r))) (error (lambda (n s e r) (cons `(error ,n) r))) (name (string-append %test-suite-lib-dir "/lib.scm"))) - (equal? (file-system-fold enter? leaf down up skip error '() name) + (equal? (pk 'flat (file-system-fold enter? leaf down up skip error '() name)) `((leaf ,name))))) (pass-if "ENOENT" @@ -320,7 +320,7 @@ (not (scandir "/.does-not-exist."))) (pass-if "no select" - (null? (scandir %test-dir (lambda (_) #f))))) + (null? (pk 'no-select (scandir %test-dir (lambda (_) #f)))))) ;;; Local Variables: ;;; eval: (put 'with-file-tree 'scheme-indent-function 2) diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 613d269..f00e693 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -1188,7 +1188,7 @@ (equal? (string-append (assoc-ref %guile-build-info 'top_srcdir) "/module/ice-9/q.scm") (with-fluids ((%file-port-name-canonicalization 'absolute)) - (port-filename (open-input-file (%search-load-path "ice-9/q.scm"))))))) + (pk 'canon (port-filename (open-input-file (%search-load-path "ice-9/q.scm")))))))) (delete-file (test-file)) ------=_Part_11411515_111982302.1349944996140--