GNU bug report logs - #56667
test failures tests/channels.scm and tests/texlive.scm

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: guix; Reported by: Chris Keschnat <chris@HIDDEN>; dated Wed, 20 Jul 2022 15:36:02 UTC; Maintainer for guix is bug-guix@HIDDEN.

Message received at 56667 <at> debbugs.gnu.org:


Received: (at 56667) by debbugs.gnu.org; 22 Jul 2022 21:04:49 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jul 22 17:04:49 2022
Received: from localhost ([127.0.0.1]:42569 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1oEzpI-00069H-Ux
	for submit <at> debbugs.gnu.org; Fri, 22 Jul 2022 17:04:49 -0400
Received: from sender4-of-o50.zoho.com ([136.143.188.50]:21045)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <rekado@HIDDEN>) id 1oEzpE-000697-Ay
 for 56667 <at> debbugs.gnu.org; Fri, 22 Jul 2022 17:04:47 -0400
ARC-Seal: i=1; a=rsa-sha256; t=1658523873; cv=none; 
 d=zohomail.com; s=zohoarc; 
 b=BRh7yEkv+N48ksw3jKKJlnZKqc0T88Hj7F7Kxe6w3Q8X4T/26sDNojAjrzHVi0UHacSC0SSFb6FhDJXnwpNGl5RmSKAJ69e2FujwCqGIIW6ENQ4aHzhiNmqq+0NRIyH2fXsDKHcvPegdKSbgjubQaSVP030ZRRIRM/M1fehNyzM=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc; t=1658523873;
 h=Content-Type:Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:MIME-Version:Message-ID:References:Subject:To;
 bh=XCHXiq4RSF/s69+c/FJB5F/cVhGBydlZDydgJCpAqaI=; 
 b=f09oHF+tJOLCL2VG96RIHzXTan2y8jAm9MUHGcpfq4juE43bMFblzu8b53PunMXgzwPAz2OT4jd6XkDRXdxCQnVwV5TS0+DCq8QnNKDSeqzldn0XYDCcAFGdr3Ai3kn1WcAsQE8tc/Jpxu/wUj8tvpGebgvww7FXSaG1dHRaBQ0=
ARC-Authentication-Results: i=1; mx.zohomail.com;
 dkim=pass  header.i=elephly.net;
 spf=pass  smtp.mailfrom=rekado@HIDDEN;
 dmarc=pass header.from=<rekado@HIDDEN>
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1658523873; 
 s=zoho; d=elephly.net; i=rekado@HIDDEN;
 h=References:From:From:To:To:Cc:Cc:Subject:Subject:Date:Date:In-reply-to:Message-ID:MIME-Version:Content-Type:Content-Transfer-Encoding:Message-Id:Reply-To;
 bh=XCHXiq4RSF/s69+c/FJB5F/cVhGBydlZDydgJCpAqaI=;
 b=CFfhmFZanYFUGZLQwYvmsRn/PCzCCnKD6mhNBt3wmlv1C44GuPG3mQ/SW4YcJ1CT
 5DgYshqm2F40AA0CuJaP3SrMgZIxPWTZpixbr5mMSwpoxeB/1dKwVc8riCOzBK2c7mp
 cobyBpIEFfPB7T3lhXarB8eKTEcDj6w5+P0dM3nM=
Received: from localhost (208-110-142-46.pool.kielnet.net [46.142.110.208]) by
 mx.zohomail.com with SMTPS id 1658523871152489.5036226578587;
 Fri, 22 Jul 2022 14:04:31 -0700 (PDT)
References: <86pmhzu9ph.fsf@HIDDEN> <875yjohnxw.fsf@HIDDEN>
User-agent: mu4e 1.6.11; emacs 28.1
From: Ricardo Wurmus <rekado@HIDDEN>
To: Ludovic =?utf-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Subject: Re: bug#56667: test failures tests/channels.scm and tests/texlive.scm
Date: Fri, 22 Jul 2022 23:04:06 +0200
In-reply-to: <875yjohnxw.fsf@HIDDEN>
X-URL: https://elephly.net
X-PGP-Key: https://elephly.net/rekado.pubkey
X-PGP-Fingerprint: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
Message-ID: <87pmhwrh9g.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-ZohoMailClient: External
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 56667
Cc: Chris Keschnat <chris@HIDDEN>, 56667 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


Ludovic Court=C3=A8s <ludo@HIDDEN> writes:

> Hi,
>
> Chris Keschnat <chris@HIDDEN> skribis:
>
>> FAIL: tests/texlive
>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>>
>> (package (inherit (simple-texlive-package "texlive-texsis" (list
>> "bibtex/bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/"
>> "tex/texsis/base/" "tex/texsis/config/") (base32
>> "17ckkii656y2g1h5h8lc1bsy10a0bfgnsakhxii4hxfmvrfvc097") #:trivial?
>> #t)) (version "59745") (propagated-inputs (list texlive-cm
>> texlive-hyphen-base texlive-knuth-lib texlive-plain texlive-tex))
>> (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX
>> macros for Physicists") (description "TeXsis is a TeX macro package
>> which provides useful features for typesetting\nresearch papers and
>> related documents.  For example, it includes support\nspecifically
>> for: Automatic numbering of equations, figures, tables
>> and\nreferences; Simplified control of type sizes, line spacing,
>> footnotes, running\nheadlines and footlines, and tables of contents,
>> figures and tables; Specialized\ndocument formats for research
>> papers, preprints and \"e-prints\", conference\nproceedings, theses,
>> books, referee reports, letters, and memoranda; Simplified\nmeans of
>> constructing an index for a book or thesis; Easy to use double
>> column\nformatting; Specialized environments for lists, theorems and
>> proofs, centered or\nnon-justified text, and listing computer code;
>> Specialized macros for easily\nconstructing ruled tables.  TeXsis
>> was originally developed for physicists, but\nothers may also find
>> it useful.  It is completely compatible with Plain TeX.") (license
>> lppl))
>>
>> ;;; (fail (package (inherit (simple-texlive-package "texlive-texsis"
>> (list "bibtex/bst/texsis/" "doc/man/man1/"
>> "doc/otherformats/texsis/base/" "tex/texsis/base/"
>> "tex/texsis/config/") (base32
>> "17ckkii656y2g1h5h8lc1bsy10a0bfgnsakhxii4hxfmvrfvc097") #:trivial?
>> #t)) (version "59745") (propagated-inputs (list texlive-cm
>> texlive-hyphen-base texlive-knuth-lib texlive-plain texlive-tex))
>> (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX
>> macros for Physicists") (description "TeXsis is a TeX macro package
>> which provides useful features for typesetting\nresearch papers and
>> related documents.  For example, it includes support\nspecifically
>> for: Automatic numbering of equations, figures, tables
>> and\nreferences; Simplified control of type sizes, line spacing,
>> footnotes, running\nheadlines and footlines, and tables of contents,
>> figures and tables; Specialized\ndocument formats for research
>> papers, preprints and \"e-prints\", conference\nproceedings, theses,
>> books, referee reports, letters, and memoranda; Simplified\nmeans of
>> constructing an index for a book or thesis; Easy to use double
>> column\nformatting; Specialized environments for lists, theorems and
>> proofs, centered or\nnon-justified text, and listing computer code;
>> Specialized macros for easily\nconstructing ruled tables.  TeXsis
>> was originally developed for physicists, but\nothers may also find
>> it useful.  It is completely compatible with Plain TeX.") (license
>> lppl)) #f)
>> test-name: texlive->guix-package
>> location: /home/ck/tmp/guix/tests/texlive.scm:161
>
> Actually I=E2=80=99m now experiencing it, and I think it=E2=80=99s caused=
 by commit
> be7b314f3fe22273e935accac22f313e44d3d970, which changes the =E2=80=98texl=
ive=E2=80=99
> importer.

My apologies.  Fixed with commit c9a37f57cbb18be01436a709cbdd96ffea41caf5.

--=20
Ricardo




Information forwarded to bug-guix@HIDDEN:
bug#56667; Package guix. Full text available.

Message received at 56667 <at> debbugs.gnu.org:


Received: (at 56667) by debbugs.gnu.org; 22 Jul 2022 20:50:31 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jul 22 16:50:31 2022
Received: from localhost ([127.0.0.1]:42536 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1oEzbS-0005jb-Oa
	for submit <at> debbugs.gnu.org; Fri, 22 Jul 2022 16:50:31 -0400
Received: from eggs.gnu.org ([209.51.188.92]:47210)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1oEzbQ-0005jI-2w
 for 56667 <at> debbugs.gnu.org; Fri, 22 Jul 2022 16:50:29 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:50566)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
 id 1oEzbJ-0004Ev-C9; Fri, 22 Jul 2022 16:50:21 -0400
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=MIME-Version:In-Reply-To:Date:References:Subject:To:
 From; bh=+O9K0MpuLzoj93YHA8XnDeLVG0Kcn+eCgW+znJLyh1k=; b=ikcAFYjZ4slOGnsf2Keb
 mau+XEBPX+aL0EqjcoQzY0jhNzN7grPiUdnJzJc2Uec2H6/2VmVyVcIa1iYVofyVUfmTJH/YKE+8B
 t04pzth5h/JZbLwqFKrWHT+S3mFTI/yRNwVYsa+hVGGhG9gNW5cjo8olfvY4OqxVttrIKR0p0Wtc4
 5PdSN0m1S3MFHRMdjdyoQcEpNVm+jPa9dArb7y57W1QIMx+1Tf1GZp9LjARUcvfWhIRNPQ+weE9Xb
 2BJBxqdCBwV49VAR17MeY9y6kQjYkCF5/OO2yYu+MDMu6y0YYK5Zrw9epIqCZm1wMCpfMiDOuJ088
 WAHIjdN7qDV9aQ==;
Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:57110
 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
 id 1oEzbJ-00070b-09; Fri, 22 Jul 2022 16:50:21 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: Chris Keschnat <chris@HIDDEN>
Subject: Re: bug#56667: test failures tests/channels.scm and tests/texlive.scm
References: <86pmhzu9ph.fsf@HIDDEN>
Date: Fri, 22 Jul 2022 22:50:19 +0200
In-Reply-To: <86pmhzu9ph.fsf@HIDDEN> (Chris Keschnat's message of "Wed, 20
 Jul 2022 16:29:50 +0200")
Message-ID: <875yjohnxw.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.1 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 56667
Cc: Ricardo Wurmus <rekado@HIDDEN>, 56667 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Hi,

Chris Keschnat <chris@HIDDEN> skribis:

> FAIL: tests/texlive
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>
> (package (inherit (simple-texlive-package "texlive-texsis" (list "bibtex/=
bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex/texsis/ba=
se/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0bfgnsakhxii=
4hxfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-inputs (list =
texlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain texlive-tex)=
) (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX macros fo=
r Physicists") (description "TeXsis is a TeX macro package which provides u=
seful features for typesetting\nresearch papers and related documents.  For=
 example, it includes support\nspecifically for: Automatic numbering of equ=
ations, figures, tables and\nreferences; Simplified control of type sizes, =
line spacing, footnotes, running\nheadlines and footlines, and tables of co=
ntents, figures and tables; Specialized\ndocument formats for research pape=
rs, preprints and \"e-prints\", conference\nproceedings, theses, books, ref=
eree reports, letters, and memoranda; Simplified\nmeans of constructing an =
index for a book or thesis; Easy to use double column\nformatting; Speciali=
zed environments for lists, theorems and proofs, centered or\nnon-justified=
 text, and listing computer code; Specialized macros for easily\nconstructi=
ng ruled tables.  TeXsis was originally developed for physicists, but\nothe=
rs may also find it useful.  It is completely compatible with Plain TeX.") =
(license lppl))
>
> ;;; (fail (package (inherit (simple-texlive-package "texlive-texsis" (lis=
t "bibtex/bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex=
/texsis/base/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0b=
fgnsakhxii4hxfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-inp=
uts (list texlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain te=
xlive-tex)) (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX=
 macros for Physicists") (description "TeXsis is a TeX macro package which =
provides useful features for typesetting\nresearch papers and related docum=
ents.  For example, it includes support\nspecifically for: Automatic number=
ing of equations, figures, tables and\nreferences; Simplified control of ty=
pe sizes, line spacing, footnotes, running\nheadlines and footlines, and ta=
bles of contents, figures and tables; Specialized\ndocument formats for res=
earch papers, preprints and \"e-prints\", conference\nproceedings, theses, =
books, referee reports, letters, and memoranda; Simplified\nmeans of constr=
ucting an index for a book or thesis; Easy to use double column\nformatting=
; Specialized environments for lists, theorems and proofs, centered or\nnon=
-justified text, and listing computer code; Specialized macros for easily\n=
constructing ruled tables.  TeXsis was originally developed for physicists,=
 but\nothers may also find it useful.  It is completely compatible with Pla=
in TeX.") (license lppl)) #f)
> test-name: texlive->guix-package
> location: /home/ck/tmp/guix/tests/texlive.scm:161

Actually I=E2=80=99m now experiencing it, and I think it=E2=80=99s caused b=
y commit
be7b314f3fe22273e935accac22f313e44d3d970, which changes the =E2=80=98texliv=
e=E2=80=99
importer.

Ricardo, WDYT?

Thanks,
Ludo=E2=80=99.




Information forwarded to bug-guix@HIDDEN:
bug#56667; Package guix. Full text available.

Message received at 56667 <at> debbugs.gnu.org:


Received: (at 56667) by debbugs.gnu.org; 21 Jul 2022 16:46:55 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Jul 21 12:46:55 2022
Received: from localhost ([127.0.0.1]:38957 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1oEZKA-0002Ko-Tn
	for submit <at> debbugs.gnu.org; Thu, 21 Jul 2022 12:46:55 -0400
Received: from box.catsu.it ([46.232.250.231]:45991)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <chris@HIDDEN>) id 1oER6D-0007gz-6Q
 for 56667 <at> debbugs.gnu.org; Thu, 21 Jul 2022 03:59:58 -0400
Received: from authenticated-user (box.catsu.it [46.232.250.231])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
 (No client certificate requested)
 by box.catsu.it (Postfix) with ESMTPSA id B79063CF8;
 Thu, 21 Jul 2022 09:59:49 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=catsu.it; s=mail;
 t=1658390389; bh=DDiBL48nkbdPdrmbR1bgICdmxwreE1jSZMHESO78yvI=;
 h=References:From:To:Cc:Subject:Date:In-reply-to:From;
 b=sql5Bk+Aluu9V6p/O4Wj7wjNSbogTU+llfDEMJ5YN2FOxUnAqdI/jtStShfDWXOfD
 XQHIYQHDaI6R/LEHmVOgpC7V1gd4VBhuKNaiQWlLmmlYECnv5yaelMlUAwWqn9izwk
 Z/iBwUBn6xQG1o4T2GUs4VELoBhbiSI76ETD6VAk4fFo2K1m8/2f84g7yFY1ta5cC6
 zqZf0NvsOpxhl/oDVwu8t0eV1CjjH73ZbS7oQUnXKyQVOAKyfNAfCSTNQOD3CGlIjJ
 A0HnY94FPxNoTHeAdACQyJjGXSBnd+hoHo2YzVr3Cj+nk5hc9ED+dcrCzjfiAFk4bO
 5PX4Su61Zasew==
References: <86pmhzu9ph.fsf@HIDDEN> <87v8rrnz15.fsf@HIDDEN>
From: Chris Keschnat <chris@HIDDEN>
To: Ludovic =?utf-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Subject: Re: bug#56667: test failures tests/channels.scm and tests/texlive.scm
Date: Thu, 21 Jul 2022 09:58:09 +0200
In-reply-to: <87v8rrnz15.fsf@HIDDEN>
Message-ID: <865yjqopzf.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 56667
X-Mailman-Approved-At: Thu, 21 Jul 2022 12:46:53 -0400
Cc: 56667 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


Ludovic Court=C3=A8s <ludo@HIDDEN> writes:

> Hi,
>
> Chris Keschnat <chris@HIDDEN> skribis:
>
>> test-name: channel-news, one entry
>> location: /home/ck/tmp/guix/tests/channels.scm:323
>> source:
>> + (test-assert
>> +   "channel-news, one entry"
>
> [...]
>
>> +                      (entry (tag "tag-for-first-news-entry")
>> +                             (title (en "Old news.") (eo "Malnova?oj."))
>
> The question mark above suggests you were not running the test in a
> Unicode-capable locale.  I think you may need to first run:
>
>   export LC_ALL=3Den_US.UTF-8
>
> or something similar.
>
> Could you check whether that helps?

Hi Ludovic,
thank you, that does indeed make the test pass.

> [...]




Information forwarded to bug-guix@HIDDEN:
bug#56667; Package guix. Full text available.

Message received at 56667 <at> debbugs.gnu.org:


Received: (at 56667) by debbugs.gnu.org; 20 Jul 2022 23:29:53 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Jul 20 19:29:53 2022
Received: from localhost ([127.0.0.1]:36271 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1oEJ8a-0001uM-LG
	for submit <at> debbugs.gnu.org; Wed, 20 Jul 2022 19:29:53 -0400
Received: from eggs.gnu.org ([209.51.188.92]:40660)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1oEJ8Y-0001u5-Ev
 for 56667 <at> debbugs.gnu.org; Wed, 20 Jul 2022 19:29:51 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:41062)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
 id 1oEJ8S-00026x-NX; Wed, 20 Jul 2022 19:29:44 -0400
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=MIME-Version:In-Reply-To:Date:References:Subject:To:
 From; bh=nnZ1u3PvsFjl4ucBL7UWOe+8E9QNlaH7VXzxUBCEwNQ=; b=Ta3fSs1SCSNw0A3VZIXc
 4Ga3VONkgOV6sYdFE6/Kx2ijXfr4msd41PCA+ODjrWtxesy89Si7rfj9v+ZnRm984/1YZja7V9uIl
 9FA4vfN8yJjJrHyR86tVGjngihU/9pntnT47Br2O8nOdkXMxZUk8WErjqsEkB8Meo1SmFELbzuMEA
 Cu5Hyv7eSMwAmpKMukMYBoynC+oAYzyTBrWbyHcQNdRG69D+9VzvwzeQKE8HRxDkF4T3C89hFjJKq
 e3o5sFfLY29GaiIcGYy3cU5dGhSEyhoXES+nQwWgpS6A3/MUdaKrgNEh3fAFIuFkj5FJAr650HLpu
 1CrNcnnfFOjNIA==;
Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:52806
 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
 id 1oEJ8S-0000Pc-AS; Wed, 20 Jul 2022 19:29:44 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: Chris Keschnat <chris@HIDDEN>
Subject: Re: bug#56667: test failures tests/channels.scm and tests/texlive.scm
References: <86pmhzu9ph.fsf@HIDDEN>
Date: Thu, 21 Jul 2022 01:29:42 +0200
In-Reply-To: <86pmhzu9ph.fsf@HIDDEN> (Chris Keschnat's message of "Wed, 20
 Jul 2022 16:29:50 +0200")
Message-ID: <87v8rrnz15.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.1 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 56667
Cc: 56667 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Hi,

Chris Keschnat <chris@HIDDEN> skribis:

> test-name: channel-news, one entry
> location: /home/ck/tmp/guix/tests/channels.scm:323
> source:
> + (test-assert
> +   "channel-news, one entry"

[...]

> +                      (entry (tag "tag-for-first-news-entry")
> +                             (title (en "Old news.") (eo "Malnova?oj."))

The question mark above suggests you were not running the test in a
Unicode-capable locale.  I think you may need to first run:

  export LC_ALL=3Den_US.UTF-8

or something similar.

Could you check whether that helps?

> FAIL: tests/texlive
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>
> (package (inherit (simple-texlive-package "texlive-texsis" (list "bibtex/=
bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex/texsis/ba=
se/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0bfgnsakhxii=
4hxfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-inputs (list =
texlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain texlive-tex)=
) (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX macros fo=
r Physicists") (description "TeXsis is a TeX macro package which provides u=
seful features for typesetting\nresearch papers and related documents.  For=
 example, it includes support\nspecifically for: Automatic numbering of equ=
ations, figures, tables and\nreferences; Simplified control of type sizes, =
line spacing, footnotes, running\nheadlines and footlines, and tables of co=
ntents, figures and tables; Specialized\ndocument formats for research pape=
rs, preprints and \"e-prints\", conference\nproceedings, theses, books, ref=
eree reports, letters, and memoranda; Simplified\nmeans of constructing an =
index for a book or thesis; Easy to use double column\nformatting; Speciali=
zed environments for lists, theorems and proofs, centered or\nnon-justified=
 text, and listing computer code; Specialized macros for easily\nconstructi=
ng ruled tables.  TeXsis was originally developed for physicists, but\nothe=
rs may also find it useful.  It is completely compatible with Plain TeX.") =
(license lppl))
>
> ;;; (fail (package (inherit (simple-texlive-package "texlive-texsis" (lis=
t "bibtex/bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex=
/texsis/base/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0b=
fgnsakhxii4hxfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-inp=
uts (list texlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain te=
xlive-tex)) (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX=
 macros for Physicists") (description "TeXsis is a TeX macro package which =
provides useful features for typesetting\nresearch papers and related docum=
ents.  For example, it includes support\nspecifically for: Automatic number=
ing of equations, figures, tables and\nreferences; Simplified control of ty=
pe sizes, line spacing, footnotes, running\nheadlines and footlines, and ta=
bles of contents, figures and tables; Specialized\ndocument formats for res=
earch papers, preprints and \"e-prints\", conference\nproceedings, theses, =
books, referee reports, letters, and memoranda; Simplified\nmeans of constr=
ucting an index for a book or thesis; Easy to use double column\nformatting=
; Specialized environments for lists, theorems and proofs, centered or\nnon=
-justified text, and listing computer code; Specialized macros for easily\n=
constructing ruled tables.  TeXsis was originally developed for physicists,=
 but\nothers may also find it useful.  It is completely compatible with Pla=
in TeX.") (license lppl)) #f)
> test-name: texlive->guix-package
> location: /home/ck/tmp/guix/tests/texlive.scm:161

Hmm this one is unclear; it passes on my laptop.  Needs more
investigation=E2=80=A6

Thanks for reporting the issue!

Ludo=E2=80=99.




Information forwarded to bug-guix@HIDDEN:
bug#56667; Package guix. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 20 Jul 2022 15:35:37 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Jul 20 11:35:37 2022
Received: from localhost ([127.0.0.1]:58665 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1oEBjb-00059s-Hz
	for submit <at> debbugs.gnu.org; Wed, 20 Jul 2022 11:35:37 -0400
Received: from lists.gnu.org ([209.51.188.17]:46140)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <chris@HIDDEN>) id 1oEAuT-0003Tc-W0
 for submit <at> debbugs.gnu.org; Wed, 20 Jul 2022 10:42:47 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:54790)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <chris@HIDDEN>) id 1oEAuT-0004me-RA
 for bug-guix@HIDDEN; Wed, 20 Jul 2022 10:42:45 -0400
Received: from box.catsu.it ([46.232.250.231]:51039)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <chris@HIDDEN>) id 1oEAuP-0006MQ-Ox
 for bug-guix@HIDDEN; Wed, 20 Jul 2022 10:42:45 -0400
Received: from authenticated-user (box.catsu.it [46.232.250.231])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
 (No client certificate requested)
 by box.catsu.it (Postfix) with ESMTPSA id 035BA75B8C
 for <bug-guix@HIDDEN>; Wed, 20 Jul 2022 16:42:35 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=catsu.it; s=mail;
 t=1658328157; bh=LeiWeMRQtgw1yhfOkBUC46E0878Tc4Uzc6kt11EjGx0=;
 h=From:To:Subject:Date:From;
 b=NVtB546mLxYe5GE9+BkyGAGjtprkjTlH000ccAU7E2W9UG6mU2IJlN+FRQs0W7QDN
 AMKAmoLJpWfxdB1zN6RfDWwlqyjV+m3zaiLWvrvzJt0ug2O6saZcHZDKyh5P2xvphG
 tky49Xoi2ey8XwbDy1SWS9Z6zaPEKhXDKy6WtmvUcqJMRwIeSpLtdCQnEE2xSkwitc
 RPlV5EoYldtZ7DpoNf+YMZikzav3N7TyDUXnULTUGdWU9zMRKp9Kq3HVuMd6w7MC+1
 Fr3lgKxQyOOAFepS4v2ZQ2TU5X2ePGoo/KdhcGG9jPJA6ODUN0bC3Q3ObMXX5yzMGA
 f8OWJKex/DhZA==
From: Chris Keschnat <chris@HIDDEN>
To: bug-guix@HIDDEN
Subject: test failures tests/channels.scm and tests/texlive.scm
Date: Wed, 20 Jul 2022 16:29:50 +0200
Message-ID: <86pmhzu9ph.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Received-SPF: pass client-ip=46.232.250.231; envelope-from=chris@HIDDEN;
 helo=box.catsu.it
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_FAIL=0.001,
 SPF_PASS=-0.001, T_FILL_THIS_FORM_SHORT=0.01,
 T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.4 (-)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Wed, 20 Jul 2022 11:35:33 -0400
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.4 (--)

--=-=-=
Content-Type: text/plain


Hello,
I am trying to follow "16.1 Building from Git"[1] but this results
in two test failures on my machine.

Initially I ran:

#+begin_src sh

  git clone https://git.savannah.gnu.org/git/guix.git
  cd guix
  git fetch origin keyring:keyring
  guix git authenticate 9edb3f66fd807b096b48283debdcddccfea34bad \
    "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"
  guix environment guix --pure --ad-hoc help2man git strace
  ./bootstrap
  ./configure --localstatedir=/var
  make && make check

#+end_src

Rerunning only the failed tests:

#+begin_src sh

  make check TESTS="tests/channels.scm tests/texlive.scm"

#+end_src

Output:

#+begin_src sh

  $ make check TESTS="tests/channels.scm tests/texlive.scm"
  make  check-recursive
  make[1]: Entering directory '/home/ck/tmp/guix'
  Making check in po/guix
  make[2]: Entering directory '/home/ck/tmp/guix/po/guix'
  make[2]: Nothing to be done for 'check'.
  make[2]: Leaving directory '/home/ck/tmp/guix/po/guix'
  Making check in po/packages
  make[2]: Entering directory '/home/ck/tmp/guix/po/packages'
  make[2]: Nothing to be done for 'check'.
  make[2]: Leaving directory '/home/ck/tmp/guix/po/packages'
  make[2]: Entering directory '/home/ck/tmp/guix'
  Compiling Scheme modules...
  Compiling Scheme modules...
  Compiling Scheme modules...
  Compiling Scheme modules...
  make  check-TESTS check-local
  make[3]: Entering directory '/home/ck/tmp/guix'
  make[4]: Entering directory '/home/ck/tmp/guix'
  FAIL: tests/channels.scm
  FAIL: tests/texlive.scm
  ============================================================================
  Testsuite summary for GNU Guix 1.3.0.22336-479d9e
  ============================================================================
  # TOTAL: 19
  # PASS:  13
  # SKIP:  4
  # XFAIL: 0
  # FAIL:  2
  # XPASS: 0
  # ERROR: 0
  ============================================================================
  See ./test-suite.log
  Please report to bug-guix@HIDDEN
  ============================================================================
  make[4]: *** [Makefile:5964: test-suite.log] Error 1
  make[4]: Leaving directory '/home/ck/tmp/guix'
  make[3]: *** [Makefile:6072: check-TESTS] Error 2
  make[3]: Leaving directory '/home/ck/tmp/guix'
  make[2]: *** [Makefile:6321: check-am] Error 2
  make[2]: Leaving directory '/home/ck/tmp/guix'
  make[1]: *** [Makefile:5849: check-recursive] Error 1
  make[1]: Leaving directory '/home/ck/tmp/guix'
  make: *** [Makefile:6323: check] Error 2

#+end_src

And results in the attached =test-suite.log=

--=-=-=
Content-Type: text/plain
Content-Disposition: attachment; filename=test-suite.log
Content-Transfer-Encoding: quoted-printable
Content-Description: 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=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D
   GNU Guix 1.3.0.22336-479d9e: ./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=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D

# TOTAL: 19
# PASS:  13
# SKIP:  4
# XFAIL: 0
# FAIL:  2
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: tests/channels
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

test-name: channel-instance-metadata returns default if .guix-channel does =
not exist
location: /home/ck/tmp/guix/tests/channels.scm:117
source:
+ (test-equal
+   "channel-instance-metadata returns default if .guix-channel does not ex=
ist"
+   '("/" ())
+   (let ((metadata
+           (channel-instance-metadata instance--boring)))
+     (list (channel-metadata-directory metadata)
+           (channel-metadata-dependencies metadata))))
expected-value: ("/" ())
actual-value: ("/" ())
result: PASS

test-name: channel-instance-metadata and default dependencies
location: /home/ck/tmp/guix/tests/channels.scm:123
source:
+ (test-equal
+   "channel-instance-metadata and default dependencies"
+   '()
+   (channel-metadata-dependencies
+     (channel-instance-metadata instance--no-deps)))
expected-value: ()
actual-value: ()
result: PASS

test-name: channel-instance-metadata and directory
location: /home/ck/tmp/guix/tests/channels.scm:127
source:
+ (test-equal
+   "channel-instance-metadata and directory"
+   "/modules"
+   (channel-metadata-directory
+     (channel-instance-metadata
+       instance--sub-directory)))
expected-value: "/modules"
actual-value: "/modules"
result: PASS

test-name: channel-instance-metadata rejects unsupported version
location: /home/ck/tmp/guix/tests/channels.scm:132
source:
+ (test-equal
+   "channel-instance-metadata rejects unsupported version"
+   1
+   (guard (c ((and (message-condition? c) (error-location? c))
+              (location-line (error-location c))))
+          (channel-instance-metadata
+            instance--unsupported-version)))
expected-value: 1
actual-value: 1
result: PASS

test-name: channel-instance-metadata returns <channel-metadata>
location: /home/ck/tmp/guix/tests/channels.scm:138
source:
+ (test-assert
+   "channel-instance-metadata returns <channel-metadata>"
+   (every (@@ (guix channels) channel-metadata?)
+          (map channel-instance-metadata
+               (list instance--no-deps
+                     instance--simple
+                     instance--with-dupes))))
actual-value: #t
result: PASS

test-name: channel-instance-metadata dependencies are channels
location: /home/ck/tmp/guix/tests/channels.scm:145
source:
+ (test-assert
+   "channel-instance-metadata dependencies are channels"
+   (let ((deps ((@@ (guix channels)
+                    channel-metadata-dependencies)
+                (channel-instance-metadata instance--simple))))
+     (match deps (((? channel? dep)) #t) (_ #f))))
actual-value: #t
result: PASS

test-name: latest-channel-instances includes channel dependencies
location: /home/ck/tmp/guix/tests/channels.scm:152
source:
+ (test-assert
+   "latest-channel-instances includes channel dependencies"
+   (let* ((channel (channel (name 'test) (url "test")))
+          (test-dir
+            (channel-instance-checkout instance--simple)))
+     (mock ((guix git)
+            update-cached-checkout
+            (lambda* (url #:key ref starting-commit)
+              (match url
+                     ("test" (values test-dir "caf3cabba9e" #f))
+                     (_ (values
+                          (channel-instance-checkout instance--no-deps)
+                          "abcde1234"
+                          #f)))))
+           (with-store
+             store
+             (let ((instances
+                     (latest-channel-instances store (list channel))))
+               (and (eq? 2 (length instances))
+                    (lset=3D eq?
+                           '(test test-channel)
+                           (map (compose
+                                  channel-name
+                                  channel-instance-channel)
+                                instances))))))))
actual-value: #t
result: PASS

test-name: latest-channel-instances excludes duplicate channel dependencies
location: /home/ck/tmp/guix/tests/channels.scm:171
source:
+ (test-assert
+   "latest-channel-instances excludes duplicate channel dependencies"
+   (let* ((channel (channel (name 'test) (url "test")))
+          (test-dir
+            (channel-instance-checkout instance--with-dupes)))
+     (mock ((guix git)
+            update-cached-checkout
+            (lambda* (url #:key ref starting-commit)
+              (match url
+                     ("test" (values test-dir "caf3cabba9e" #f))
+                     (_ (values
+                          (channel-instance-checkout instance--no-deps)
+                          "abcde1234"
+                          #f)))))
+           (with-store
+             store
+             (let ((instances
+                     (latest-channel-instances store (list channel))))
+               (and (=3D 2 (length instances))
+                    (lset=3D eq?
+                           '(test test-channel)
+                           (map (compose
+                                  channel-name
+                                  channel-instance-channel)
+                                instances))
+                    (find (lambda (instance)
+                            (and (eq? (channel-name
+                                        (channel-instance-channel instance=
))
+                                      'test-channel)
+                                 (string=3D?
+                                   (channel-commit
+                                     (channel-instance-channel instance))
+                                   "abc1234")))
+                          instances)))))))
actual-value: #<<channel-instance> channel: #<<channel> name: test-channel =
url: "https://example.com/test-channel" branch: "master" commit: "abc1234" =
introduction: #f location: ((filename . "guix/channels.scm") (line . 262) (=
column . 19))> commit: "abcde1234" checkout: "/home/ck/tmp/guix/test-tmp/st=
ore/c2xcqhay4kldm6pncih8hfljyl1qyzxg-test-channel-abcde12">
result: PASS

hint: Using 'master' as the name for the initial branch. This default branc=
h name
hint: is subject to change. To configure the initial branch name to use in =
all
hint: of your new repositories, which will suppress this warning, call:
hint:=20
hint: 	git config --global init.defaultBranch <name>
hint:=20
hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and
hint: 'development'. The just-created branch can be renamed via this comman=
d:
hint:=20
hint: 	git branch -m <name>
Initialized empty Git repository in /tmp/guix-directory.uBzMmx/.git/
[master (root-commit) 71b1ca8] first commit
 1 file changed, 1 insertion(+)
 create mode 100644 a.txt
[master a56a83a] second commit
 1 file changed, 1 insertion(+)
 create mode 100644 b.scm
test-name: latest-channel-instances #:validate-pull
location: /home/ck/tmp/guix/tests/channels.scm:201
source:
+ (test-equal
+   "latest-channel-instances #:validate-pull"
+   'descendant
+   (let/ec
+     return
+     (with-temporary-git-repository
+       directory
+       '((add "a.txt" "A")
+         (commit "first commit")
+         (add "b.scm" "#t")
+         (commit "second commit"))
+       (with-repository
+         directory
+         repository
+         (let* ((commit1 (find-commit repository "first"))
+                (commit2 (find-commit repository "second"))
+                (spec (channel
+                        (url (string-append "file://" directory))
+                        (name 'foo)))
+                (new (channel
+                       (inherit spec)
+                       (commit (oid->string (commit-id commit2)))))
+                (old (channel
+                       (inherit spec)
+                       (commit (oid->string (commit-id commit1))))))
+           (define (validate-pull channel current commit relation)
+             (return
+               (and (eq? channel old)
+                    (string=3D?
+                      (oid->string (commit-id commit2))
+                      current)
+                    (string=3D?
+                      (oid->string (commit-id commit1))
+                      commit)
+                    relation)))
+           (with-store
+             store
+             (latest-channel-instances
+               store
+               (list old)
+               #:current-channels
+               (list new)
+               #:validate-pull
+               validate-pull)))))))
expected-value: descendant
actual-value: descendant
result: PASS

test-name: channel-instances->manifest
location: /home/ck/tmp/guix/tests/channels.scm:234
source:
+ (test-assert
+   "channel-instances->manifest"
+   (let* ((spec (lambda deps
+                  `(channel
+                     (version 0)
+                     (dependencies
+                       ,@(map (lambda (dep)
+                                `(channel
+                                   (name ,dep)
+                                   (url "http://example.org")))
+                              deps)))))
+          (guix (make-instance #:name 'guix))
+          (instance0 (make-instance #:name 'a))
+          (instance1
+            (make-instance #:name 'b #:spec (spec 'a)))
+          (instance2
+            (make-instance #:name 'c #:spec (spec 'b)))
+          (instance3
+            (make-instance #:name 'd #:spec (spec 'c 'a))))
+     (%graft? #f)
+     (let ((source (channel-instance-checkout guix)))
+       (mkdir (string-append source "/build-aux"))
+       (call-with-output-file
+         (string-append
+           source
+           "/build-aux/build-self.scm")
+         (lambda (port)
+           (write '(begin
+                     (use-modules (guix) (gnu packages bootstrap))
+                     (lambda _ (package->derivation %bootstrap-guile)))
+                  port))))
+     (with-store
+       store
+       (let ()
+         (define manifest
+           (run-with-store
+             store
+             (channel-instances->manifest
+               (list guix
+                     instance0
+                     instance1
+                     instance2
+                     instance3))))
+         (define entries (manifest-entries manifest))
+         (define (depends? drv in out)
+           (let ((set (list->set
+                        (requisites
+                          store
+                          (list (derivation-file-name drv)))))
+                 (in (map derivation-file-name in))
+                 (out (map derivation-file-name out)))
+             (and (every (cut set-contains? set <>) in)
+                  (not (any (cut set-contains? set <>) out)))))
+         (define (lookup name)
+           (run-with-store
+             store
+             (lower-object
+               (manifest-entry-item
+                 (manifest-lookup
+                   manifest
+                   (manifest-pattern (name name)))))))
+         (let ((drv-guix (lookup "guix"))
+               (drv0 (lookup "a"))
+               (drv1 (lookup "b"))
+               (drv2 (lookup "c"))
+               (drv3 (lookup "d")))
+           (and (depends?
+                  drv-guix
+                  '()
+                  (list drv0 drv1 drv2 drv3))
+                (depends? drv0 (list) (list drv1 drv2 drv3))
+                (depends? drv1 (list drv0) (list drv2 drv3))
+                (depends? drv2 (list drv1) (list drv3))
+                (depends? drv3 (list drv2 drv0) (list))))))))
actual-value: #t
result: PASS

hint: Using 'master' as the name for the initial branch. This default branc=
h name
hint: is subject to change. To configure the initial branch name to use in =
all
hint: of your new repositories, which will suppress this warning, call:
hint:=20
hint: 	git config --global init.defaultBranch <name>
hint:=20
hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and
hint: 'development'. The just-created branch can be renamed via this comman=
d:
hint:=20
hint: 	git branch -m <name>
Initialized empty Git repository in /tmp/guix-directory.PVLRKX/.git/
[master (root-commit) 3af316b] the commit
 1 file changed, 1 insertion(+)
 create mode 100644 a.txt
test-name: channel-news, no news
location: /home/ck/tmp/guix/tests/channels.scm:311
source:
+ (test-equal
+   "channel-news, no news"
+   '()
+   (with-temporary-git-repository
+     directory
+     '((add "a.txt" "A") (commit "the commit"))
+     (with-repository
+       directory
+       repository
+       (let ((channel
+               (channel
+                 (url (string-append "file://" directory))
+                 (name 'foo)))
+             (latest (reference-name->oid repository "HEAD")))
+         (channel-news-for-commit
+           channel
+           (oid->string latest))))))
expected-value: ()
actual-value: ()
result: PASS

hint: Using 'master' as the name for the initial branch. This default branc=
h name
hint: is subject to change. To configure the initial branch name to use in =
all
hint: of your new repositories, which will suppress this warning, call:
hint:=20
hint: 	git config --global init.defaultBranch <name>
hint:=20
hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and
hint: 'development'. The just-created branch can be renamed via this comman=
d:
hint:=20
hint: 	git branch -m <name>
Initialized empty Git repository in /tmp/guix-directory.rKMEVZ/.git/
[master (root-commit) b144c36] first commit
 1 file changed, 1 insertion(+)
 create mode 100644 .guix-channel
[master 842b1fb] second commit
 1 file changed, 1 insertion(+)
 create mode 100644 src/a.txt
[master b6bba6f] third commit
 1 file changed, 1 insertion(+)
 create mode 100644 news.scm
[master fa33342] fourth commit
 1 file changed, 1 insertion(+)
 create mode 100644 src/b.txt
[master b20d3d5] fifth commit
 1 file changed, 1 insertion(+), 1 deletion(-)
test-name: channel-news, one entry
location: /home/ck/tmp/guix/tests/channels.scm:323
source:
+ (test-assert
+   "channel-news, one entry"
+   (with-temporary-git-repository
+     directory
+     `((add ".guix-channel"
+            ,(object->string
+               '(channel (version 0) (news-file "news.scm"))))
+       (commit "first commit")
+       (add "src/a.txt" "A")
+       (commit "second commit")
+       (tag "tag-for-first-news-entry")
+       (add "news.scm"
+            ,(lambda (repository)
+               (let ((previous
+                       (reference-name->oid repository "HEAD")))
+                 (object->string
+                   `(channel-news
+                      (version 0)
+                      (entry (commit ,(oid->string previous))
+                             (title (en "New file!") (eo "Nova dosiero!"))
+                             (body (en "Yeah, a.txt."))))))))
+       (commit "third commit")
+       (add "src/b.txt" "B")
+       (commit "fourth commit")
+       (add "news.scm"
+            ,(lambda (repository)
+               (let ((second
+                       (commit-id
+                         (find-commit repository "second commit")))
+                     (previous
+                       (reference-name->oid repository "HEAD")))
+                 (object->string
+                   `(channel-news
+                      (version 0)
+                      (entry (commit ,(oid->string previous))
+                             (title (en "Another file!"))
+                             (body (en "Yeah, b.txt.")))
+                      (entry (tag "tag-for-first-news-entry")
+                             (title (en "Old news.") (eo "Malnova?oj."))
+                             (body (en "For a.txt"))))))))
+       (commit "fifth commit"))
+     (with-repository
+       directory
+       repository
+       (define (find-commit* message)
+         (oid->string
+           (commit-id (find-commit repository message))))
+       (let ((channel
+               (channel
+                 (url (string-append "file://" directory))
+                 (name 'foo)))
+             (commit1 (find-commit* "first commit"))
+             (commit2 (find-commit* "second commit"))
+             (commit3 (find-commit* "third commit"))
+             (commit4 (find-commit* "fourth commit"))
+             (commit5 (find-commit* "fifth commit")))
+         (and (null? (channel-news-for-commit channel commit2))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit5))
+                     (list commit2 commit4))
+              (lset=3D equal?
+                     (map channel-news-entry-title
+                          (channel-news-for-commit channel commit5))
+                     '((("en" . "Another file!"))
+                       (("en" . "Old news.") ("eo" . "Malnova?oj."))))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit3))
+                     (list commit2))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit3 commit1=
))
+                     (list commit2))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit5 commit3=
))
+                     (list commit4))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit5 commit1=
))
+                     (list commit4 commit2))
+              (lset=3D equal?
+                     (map channel-news-entry-tag
+                          (channel-news-for-commit channel commit5 commit1=
))
+                     '(#f "tag-for-first-news-entry")))))))
actual-value: #f
result: FAIL

hint: Using 'master' as the name for the initial branch. This default branc=
h name
hint: is subject to change. To configure the initial branch name to use in =
all
hint: of your new repositories, which will suppress this warning, call:
hint:=20
hint: 	git config --global init.defaultBranch <name>
hint:=20
hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and
hint: 'development'. The just-created branch can be renamed via this comman=
d:
hint:=20
hint: 	git branch -m <name>
Initialized empty Git repository in /tmp/guix-directory.uJnVw7/.git/
[master (root-commit) 50fcf19] first commit
 2 files changed, 2 insertions(+)
 create mode 100644 .guix-channel
 create mode 100644 src/a.txt
[master 7cdd555] second commit
 1 file changed, 1 insertion(+)
 create mode 100644 news.scm
test-name: channel-news, annotated tag
location: /home/ck/tmp/guix/tests/channels.scm:411
source:
+ (test-assert
+   "channel-news, annotated tag"
+   (with-temporary-git-repository
+     directory
+     `((add ".guix-channel"
+            ,(object->string
+               '(channel (version 0) (news-file "news.scm"))))
+       (add "src/a.txt" "A")
+       (commit "first commit")
+       (tag "tag-for-first-news-entry"
+            "This is an annotated tag.")
+       (add "news.scm"
+            ,(lambda (repository)
+               (let ((previous
+                       (reference-name->oid repository "HEAD")))
+                 (object->string
+                   `(channel-news
+                      (version 0)
+                      (entry (tag "tag-for-first-news-entry")
+                             (title (en "New file!"))
+                             (body (en "Yeah, a.txt."))))))))
+       (commit "second commit"))
+     (with-repository
+       directory
+       repository
+       (define (find-commit* message)
+         (oid->string
+           (commit-id (find-commit repository message))))
+       (let ((channel
+               (channel
+                 (url (string-append "file://" directory))
+                 (name 'foo)))
+             (commit1 (find-commit* "first commit"))
+             (commit2 (find-commit* "second commit")))
+         (and (null? (channel-news-for-commit channel commit1))
+              (lset=3D equal?
+                     (map channel-news-entry-title
+                          (channel-news-for-commit channel commit2))
+                     '((("en" . "New file!"))))
+              (lset=3D string=3D?
+                     (map channel-news-entry-tag
+                          (channel-news-for-commit channel commit2))
+                     (list "tag-for-first-news-entry"))
+              (lset=3D string=3D?
+                     (map channel-news-entry-commit
+                          (channel-news-for-commit channel commit2))
+                     (list commit1)))))))
actual-value: #t
result: PASS

hint: Using 'master' as the name for the initial branch. This default branc=
h name
hint: is subject to change. To configure the initial branch name to use in =
all
hint: of your new repositories, which will suppress this warning, call:
hint:=20
hint: 	git config --global init.defaultBranch <name>
hint:=20
hint: Names commonly chosen instead of 'master' are 'main', 'trunk' and
hint: 'development'. The just-created branch can be renamed via this comman=
d:
hint:=20
hint: 	git branch -m <name>
Initialized empty Git repository in /tmp/guix-directory.bnMluk/.git/
[master (root-commit) 5918529] first commit
 1 file changed, 1 insertion(+)
 create mode 100644 a.txt
[master 353ea72] second commit
 1 file changed, 1 insertion(+)
 create mode 100644 b.scm
test-name: latest-channel-instances, missing introduction for 'guix'
location: /home/ck/tmp/guix/tests/channels.scm:458
source:
+ (test-assert
+   "latest-channel-instances, missing introduction for 'guix'"
+   (with-temporary-git-repository
+     directory
+     '((add "a.txt" "A")
+       (commit "first commit")
+       (add "b.scm" "#t")
+       (commit "second commit"))
+     (with-repository
+       directory
+       repository
+       (let* ((commit1 (find-commit repository "first"))
+              (commit2 (find-commit repository "second"))
+              (channel
+                (channel
+                  (url (string-append "file://" directory))
+                  (name 'guix))))
+         (guard (c ((formatted-message? c)
+                    (->bool
+                      (string-contains
+                        (formatted-message-string c)
+                        "introduction"))))
+                (with-store
+                  store
+                  (latest-channel-instances store (list channel))
+                  #f))))))
actual-value: #t
result: PASS

test-name: authenticate-channel, wrong first commit signer
location: /home/ck/tmp/guix/tests/channels.scm:479
source:
+ (test-equal
+   "authenticate-channel, wrong first commit signer"
+   #t
+   (with-fresh-gnupg-setup
+     (list %ed25519-public-key-file
+           %ed25519-secret-key-file
+           %ed25519-2-public-key-file
+           %ed25519-2-secret-key-file)
+     (with-temporary-git-repository
+       directory
+       `((add ".guix-channel"
+              ,(object->string
+                 '(channel
+                    (version 0)
+                    (keyring-reference "master"))))
+         (add ".guix-authorizations"
+              ,(object->string
+                 `(authorizations
+                    (version 0)
+                    ((,(key-fingerprint %ed25519-public-key-file)
+                      (name "Charlie"))))))
+         (add "signer.key"
+              ,(call-with-input-file
+                 %ed25519-public-key-file
+                 get-string-all))
+         (commit
+           "first commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (add "random" ,(random-text))
+         (commit
+           "second commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file))))
+       (with-repository
+         directory
+         repository
+         (let* ((commit1 (find-commit repository "first"))
+                (commit2 (find-commit repository "second"))
+                (intro (make-channel-introduction
+                         (commit-id-string commit1)
+                         (openpgp-public-key-fingerprint
+                           (read-openpgp-packet %ed25519-2-public-key-file=
))))
+                (channel
+                  (channel
+                    (name 'example)
+                    (url (string-append "file://" directory))
+                    (introduction intro))))
+           (guard (c ((formatted-message? c)
+                      (and (string-contains
+                             (formatted-message-string c)
+                             "initial commit")
+                           (equal?
+                             (formatted-message-arguments c)
+                             (list (oid->string (commit-id commit1))
+                                   (key-fingerprint %ed25519-public-key-fi=
le)
+                                   (key-fingerprint
+                                     %ed25519-2-public-key-file))))))
+                  (authenticate-channel
+                    channel
+                    directory
+                    (commit-id-string commit2)
+                    #:keyring-reference-prefix
+                    "")
+                  'failed))))))
result: SKIP

test-name: authenticate-channel, not a descendant of introductory commit
location: /home/ck/tmp/guix/tests/channels.scm:529
source:
+ (test-equal
+   "authenticate-channel, not a descendant of introductory commit"
+   #t
+   (with-fresh-gnupg-setup
+     (list %ed25519-public-key-file
+           %ed25519-secret-key-file
+           %ed25519-2-public-key-file
+           %ed25519-2-secret-key-file)
+     (with-temporary-git-repository
+       directory
+       `((add ".guix-channel"
+              ,(object->string
+                 '(channel
+                    (version 0)
+                    (keyring-reference "master"))))
+         (add ".guix-authorizations"
+              ,(object->string
+                 `(authorizations
+                    (version 0)
+                    ((,(key-fingerprint %ed25519-public-key-file)
+                      (name "Charlie"))))))
+         (add "signer.key"
+              ,(call-with-input-file
+                 %ed25519-public-key-file
+                 get-string-all))
+         (commit
+           "first commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (branch "alternate-branch")
+         (checkout "alternate-branch")
+         (add "something.txt" ,(random-text))
+         (commit
+           "intro commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (checkout "master")
+         (add "random" ,(random-text))
+         (commit
+           "second commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file))))
+       (with-repository
+         directory
+         repository
+         (let* ((commit1 (find-commit repository "first"))
+                (commit2 (find-commit repository "second"))
+                (commit0
+                  (commit-lookup
+                    repository
+                    (reference-target
+                      (branch-lookup repository "alternate-branch"))))
+                (intro (make-channel-introduction
+                         (commit-id-string commit0)
+                         (openpgp-public-key-fingerprint
+                           (read-openpgp-packet %ed25519-public-key-file))=
))
+                (channel
+                  (channel
+                    (name 'example)
+                    (url (string-append "file://" directory))
+                    (introduction intro))))
+           (guard (c ((formatted-message? c)
+                      (and (string-contains
+                             (formatted-message-string c)
+                             "not a descendant")
+                           (equal?
+                             (formatted-message-arguments c)
+                             (list (oid->string (commit-id commit2))
+                                   (oid->string (commit-id commit0)))))))
+                  (authenticate-channel
+                    channel
+                    directory
+                    (commit-id-string commit2)
+                    #:keyring-reference-prefix
+                    "")
+                  'failed))))))
result: SKIP

test-name: authenticate-channel, .guix-authorizations
location: /home/ck/tmp/guix/tests/channels.scm:587
source:
+ (test-equal
+   "authenticate-channel, .guix-authorizations"
+   #t
+   (with-fresh-gnupg-setup
+     (list %ed25519-public-key-file
+           %ed25519-secret-key-file
+           %ed25519-2-public-key-file
+           %ed25519-2-secret-key-file)
+     (with-temporary-git-repository
+       directory
+       `((add ".guix-channel"
+              ,(object->string
+                 '(channel
+                    (version 0)
+                    (keyring-reference "channel-keyring"))))
+         (add ".guix-authorizations"
+              ,(object->string
+                 `(authorizations
+                    (version 0)
+                    ((,(key-fingerprint %ed25519-public-key-file)
+                      (name "Charlie"))))))
+         (commit "zeroth commit")
+         (add "a.txt" "A")
+         (commit
+           "first commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (add "b.txt" "B")
+         (commit
+           "second commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (add "c.txt" "C")
+         (commit
+           "third commit"
+           (signer
+             ,(key-fingerprint %ed25519-2-public-key-file)))
+         (branch "channel-keyring")
+         (checkout "channel-keyring")
+         (add "signer.key"
+              ,(call-with-input-file
+                 %ed25519-public-key-file
+                 get-string-all))
+         (add "other.key"
+              ,(call-with-input-file
+                 %ed25519-2-public-key-file
+                 get-string-all))
+         (commit "keyring commit")
+         (checkout "master"))
+       (with-repository
+         directory
+         repository
+         (let* ((commit1 (find-commit repository "first"))
+                (commit2 (find-commit repository "second"))
+                (commit3 (find-commit repository "third"))
+                (intro (make-channel-introduction
+                         (commit-id-string commit1)
+                         (openpgp-public-key-fingerprint
+                           (read-openpgp-packet %ed25519-public-key-file))=
))
+                (channel
+                  (channel
+                    (name 'example)
+                    (url (string-append "file://" directory))
+                    (introduction intro))))
+           (and (authenticate-channel
+                  channel
+                  directory
+                  (commit-id-string commit2)
+                  #:keyring-reference-prefix
+                  "")
+                (guard (c ((unauthorized-commit-error? c)
+                           (and (oid=3D? (git-authentication-error-commit =
c)
+                                       (commit-id commit3))
+                                (bytevector=3D?
+                                  (openpgp-public-key-fingerprint
+                                    (unauthorized-commit-error-signing-key=
 c))
+                                  (openpgp-public-key-fingerprint
+                                    (read-openpgp-packet
+                                      %ed25519-2-public-key-file))))))
+                       (authenticate-channel
+                         channel
+                         directory
+                         (commit-id-string commit3)
+                         #:keyring-reference-prefix
+                         "")
+                       'failed)))))))
result: SKIP

test-name: latest-channel-instances, authenticate dependency
location: /home/ck/tmp/guix/tests/channels.scm:656
source:
+ (test-equal
+   "latest-channel-instances, authenticate dependency"
+   #t
+   (with-fresh-gnupg-setup
+     (list %ed25519-public-key-file
+           %ed25519-secret-key-file)
+     (with-temporary-git-repository
+       dependency-directory
+       `((add ".guix-channel"
+              ,(object->string
+                 '(channel
+                    (version 0)
+                    (keyring-reference "master"))))
+         (add ".guix-authorizations"
+              ,(object->string `(authorizations (version 0) ())))
+         (add "signer.key"
+              ,(call-with-input-file
+                 %ed25519-public-key-file
+                 get-string-all))
+         (commit
+           "zeroth commit"
+           (signer
+             ,(key-fingerprint %ed25519-public-key-file)))
+         (add "foo.txt" "evil")
+         (commit "unsigned commit"))
+       (with-repository
+         dependency-directory
+         dependency
+         (let* ((commit0 (find-commit dependency "zeroth"))
+                (commit1 (find-commit dependency "unsigned"))
+                (intro `(channel-introduction
+                          (version 0)
+                          (commit ,(commit-id-string commit0))
+                          (signer
+                            ,(openpgp-format-fingerprint
+                               (openpgp-public-key-fingerprint
+                                 (read-openpgp-packet
+                                   %ed25519-public-key-file)))))))
+           (with-temporary-git-repository
+             directory
+             `((add ".guix-channel"
+                    ,(object->string
+                       `(channel
+                          (version 0)
+                          (dependencies
+                            (channel
+                              (name test-channel)
+                              (url ,dependency-directory)
+                              (introduction ,intro))))))
+               (commit "single commit"))
+             (let ((channel (channel (name 'test) (url directory))))
+               (guard (c ((unsigned-commit-error? c)
+                          (oid=3D? (git-authentication-error-commit c)
+                                 (commit-id commit1))))
+                      (with-store
+                        store
+                        (latest-channel-instances store (list channel))
+                        'failed)))))))))
result: SKIP

Updating channel 'test' from Git repository at 'test'...
Updating channel 'test-channel' from Git repository at 'https://example.com=
/test-channel'...
Updating channel 'test' from Git repository at 'test'...
Updating channel 'test-channel' from Git repository at 'https://example.com=
/test-channel'...
Updating channel 'test-channel' from Git repository at 'https://example.com=
/test-channel'...
Updating channel 'foo' from Git repository at 'file:///tmp/guix-directory.u=
BzMmx'...
Updating channel 'guix' from Git repository at 'file:///tmp/guix-directory.=
bnMluk'...

FAIL: tests/texlive
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

(package (inherit (simple-texlive-package "texlive-texsis" (list "bibtex/bs=
t/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex/texsis/base=
/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0bfgnsakhxii4h=
xfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-inputs (list te=
xlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain texlive-tex)) =
(home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX macros for =
Physicists") (description "TeXsis is a TeX macro package which provides use=
ful features for typesetting\nresearch papers and related documents.  For e=
xample, it includes support\nspecifically for: Automatic numbering of equat=
ions, figures, tables and\nreferences; Simplified control of type sizes, li=
ne spacing, footnotes, running\nheadlines and footlines, and tables of cont=
ents, figures and tables; Specialized\ndocument formats for research papers=
, preprints and \"e-prints\", conference\nproceedings, theses, books, refer=
ee reports, letters, and memoranda; Simplified\nmeans of constructing an in=
dex for a book or thesis; Easy to use double column\nformatting; Specialize=
d environments for lists, theorems and proofs, centered or\nnon-justified t=
ext, and listing computer code; Specialized macros for easily\nconstructing=
 ruled tables.  TeXsis was originally developed for physicists, but\nothers=
 may also find it useful.  It is completely compatible with Plain TeX.") (l=
icense lppl))

;;; (fail (package (inherit (simple-texlive-package "texlive-texsis" (list =
"bibtex/bst/texsis/" "doc/man/man1/" "doc/otherformats/texsis/base/" "tex/t=
exsis/base/" "tex/texsis/config/") (base32 "17ckkii656y2g1h5h8lc1bsy10a0bfg=
nsakhxii4hxfmvrfvc097") #:trivial? #t)) (version "59745") (propagated-input=
s (list texlive-cm texlive-hyphen-base texlive-knuth-lib texlive-plain texl=
ive-tex)) (home-page "https://www.tug.org/texlive/") (synopsis "Plain TeX m=
acros for Physicists") (description "TeXsis is a TeX macro package which pr=
ovides useful features for typesetting\nresearch papers and related documen=
ts.  For example, it includes support\nspecifically for: Automatic numberin=
g of equations, figures, tables and\nreferences; Simplified control of type=
 sizes, line spacing, footnotes, running\nheadlines and footlines, and tabl=
es of contents, figures and tables; Specialized\ndocument formats for resea=
rch papers, preprints and \"e-prints\", conference\nproceedings, theses, bo=
oks, referee reports, letters, and memoranda; Simplified\nmeans of construc=
ting an index for a book or thesis; Easy to use double column\nformatting; =
Specialized environments for lists, theorems and proofs, centered or\nnon-j=
ustified text, and listing computer code; Specialized macros for easily\nco=
nstructing ruled tables.  TeXsis was originally developed for physicists, b=
ut\nothers may also find it useful.  It is completely compatible with Plain=
 TeX.") (license lppl)) #f)
test-name: texlive->guix-package
location: /home/ck/tmp/guix/tests/texlive.scm:161
source:
+ (test-assert
+   "texlive->guix-package"
+   (mock ((guix build svn)
+          svn-fetch
+          (lambda* (url
+                    revision
+                    directory
+                    #:key
+                    (svn-command "svn")
+                    (user-name #f)
+                    (password #f)
+                    (recursive? #t))
+            (mkdir-p directory)
+            (with-output-to-file
+              (string-append directory "/foo")
+              (lambda () (display "source")))))
+         (let ((result
+                 (texlive->guix-package
+                   "texsis"
+                   #:package-database
+                   (lambda _ %fake-tlpdb))))
+           (match result
+                  (('package
+                    ('inherit
+                     ('simple-texlive-package
+                      "texlive-texsis"
+                      ('list
+                       "bibtex/bst/texsis/"
+                       "doc/man/man1/"
+                       "doc/otherformats/texsis/base/"
+                       "tex/texsis/base/"
+                       "tex/texsis/config/")
+                      ('base32 (? string? hash))
+                      #:trivial?
+                      #t))
+                    ('propagated-inputs
+                     ('list
+                      'texlive-cm
+                      'texlive-hyphen-base
+                      'texlive-knuth-lib
+                      'texlive-plain
+                      'texlive-tex))
+                    ('home-page "https://www.tug.org/texlive/")
+                    ('synopsis "Plain TeX macros for Physicists")
+                    ('description (? string? description))
+                    ('license 'lppl))
+                   #t)
+                  (_ (begin
+                       (format #t "~s~%" result)
+                       (pk 'fail result #f)))))))
actual-value: #f
result: FAIL



--=-=-=
Content-Type: text/plain


Am I doing anything wrong? I tried reading the results but cannot figure
out what is wrong.
.

[1] https://guix.gnu.org/manual/en/html_node/Building-from-Git.html


Thank you
Chris

--=-=-=--




Acknowledgement sent to Chris Keschnat <chris@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-guix@HIDDEN. Full text available.
Report forwarded to bug-guix@HIDDEN:
bug#56667; Package guix. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Fri, 22 Jul 2022 21:15:01 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.