Ludovic Courtès
8 years ago
28 changed files with 547 additions and 172 deletions
-
51Makefile.am
-
83build-aux/check-final-inputs-self-contained.scm
-
6doc/guix.texi
-
2gnu-system.am
-
25gnu/packages/admin.scm
-
5gnu/packages/apr.scm
-
145gnu/packages/base.scm
-
10gnu/packages/cross-base.scm
-
16gnu/packages/gawk.scm
-
103gnu/packages/gcc.scm
-
34gnu/packages/gettext.scm
-
3gnu/packages/guile.scm
-
7gnu/packages/icu4c.scm
-
7gnu/packages/libunistring.scm
-
12gnu/packages/linux.scm
-
31gnu/packages/make-bootstrap.scm
-
4gnu/packages/multiprecision.scm
-
8gnu/packages/ncurses.scm
-
15gnu/packages/patches/guile-ncurses-tests.patch
-
17gnu/packages/patches/icu4c-test-date-format.patch
-
11gnu/packages/qemu.scm
-
7gnu/packages/tor.scm
-
16gnu/system.scm
-
12guix/build-system/gnu.scm
-
6guix/build/gnu-build-system.scm
-
61guix/build/utils.scm
-
12guix/scripts/substitute-binary.scm
-
10guix/scripts/system.scm
@ -0,0 +1,83 @@ |
|||
;;; GNU Guix --- Functional package management for GNU |
|||
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> |
|||
;;; |
|||
;;; This file is part of GNU Guix. |
|||
;;; |
|||
;;; GNU Guix is free software; you can redistribute it and/or modify it |
|||
;;; under the terms of the GNU General Public License as published by |
|||
;;; the Free Software Foundation; either version 3 of the License, or (at |
|||
;;; your option) any later version. |
|||
;;; |
|||
;;; GNU Guix is distributed in the hope that it will be useful, but |
|||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
|||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|||
;;; GNU General Public License for more details. |
|||
;;; |
|||
;;; You should have received a copy of the GNU General Public License |
|||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
|||
|
|||
;;; |
|||
;;; Check whether important binaries are available at hydra.gnu.org. |
|||
;;; |
|||
|
|||
(use-modules (guix store) |
|||
(guix packages) |
|||
(guix derivations) |
|||
(guix ui) |
|||
(gnu packages base) |
|||
(ice-9 match) |
|||
(srfi srfi-1) |
|||
(srfi srfi-26)) |
|||
|
|||
(define %supported-systems |
|||
'("x86_64-linux" "i686-linux")) |
|||
|
|||
(define (final-inputs store system) |
|||
"Return the list of outputs directories of the final inputs for SYSTEM." |
|||
(append-map (match-lambda |
|||
((name package) |
|||
(let ((drv (package-derivation store package system))) |
|||
;; Libc's 'debug' output refers to gcc-cross-boot0, but it's |
|||
;; hard to avoid, so we tolerate it. This should be the |
|||
;; only exception. |
|||
(filter-map (match-lambda |
|||
(("debug" . directory) |
|||
(if (string=? "glibc" (package-name package)) |
|||
#f |
|||
directory)) |
|||
((_ . directory) directory)) |
|||
(derivation->output-paths drv))))) |
|||
%final-inputs)) |
|||
|
|||
(define (assert-valid-substitute substitute) |
|||
"Make sure SUBSTITUTE does not refer to any bootstrap inputs, and bail out |
|||
if it does." |
|||
(let ((references (substitutable-references substitute))) |
|||
(when (any (cut string-contains <> "boot") references) |
|||
(leave (_ "'~a' refers to bootstrap inputs: ~s~%") |
|||
(substitutable-path substitute) references)))) |
|||
|
|||
(define (test-final-inputs store system) |
|||
"Check whether the final inputs for SYSTEM are clean---i.e., they don't |
|||
refer to the bootstrap tools." |
|||
(format #t "checking final inputs for '~a'...~%" system) |
|||
(let* ((inputs (final-inputs store system)) |
|||
(available (substitutable-path-info store inputs))) |
|||
(for-each (lambda (dir) |
|||
(unless (find (lambda (substitute) |
|||
(string=? (substitutable-path substitute) |
|||
dir)) |
|||
available) |
|||
(leave (_ "~a (system: ~a) has no substitute~%") |
|||
dir system))) |
|||
inputs) |
|||
|
|||
(for-each assert-valid-substitute available))) |
|||
|
|||
;; Entry point. |
|||
(with-store store |
|||
(set-build-options store #:use-substitutes? #t) |
|||
|
|||
(for-each (cut test-final-inputs store <>) |
|||
%supported-systems)) |
|||
|
|||
@ -0,0 +1,15 @@ |
|||
The wide test files are missing from the tarball, so ignore them. |
|||
Reported at <https://lists.gnu.org/archive/html/bug-guile-ncurses/2014-06/msg00000.html>. |
|||
|
|||
--- guile-ncurses-1.4/test/Makefile.in 2013-04-27 17:55:19.000000000 +0200
|
|||
+++ guile-ncurses-1.4/test/Makefile.in 2014-06-16 21:39:40.000000000 +0200
|
|||
@@ -258,8 +258,7 @@ m011_menu_options.test slk_001_init.test
|
|||
slk_003_init.test slk_004_init.test slk_005_demo.test \ |
|||
slk_006_attributes.test |
|||
|
|||
-WIDETESTS = r037_border_set.test r038_get_wch.test r039_get_wstr.test \
|
|||
-r040_term_attrs.test
|
|||
+WIDETESTS =
|
|||
|
|||
TESTS = $(NOTERMTESTS) $(am__append_1) $(am__append_2) |
|||
EXTRA_DIST = $(TESTLIB) $(TESTS) |
|||
@ -0,0 +1,17 @@ |
|||
Starting with the switch to GCC 4.8.3, we observed this test failure. |
|||
Changing "34" to "134" means that we expect the date to be parsed as |
|||
"2034", not "1934", which seems consistent with the line above. |
|||
|
|||
Reported at <http://bugs.icu-project.org/trac/ticket/10960>. |
|||
|
|||
--- icu/source/test/intltest/dtfmttst.cpp 2014-06-16 10:35:46.000000000 +0200
|
|||
+++ icu/source/test/intltest/dtfmttst.cpp 2014-06-16 10:35:52.000000000 +0200
|
|||
@@ -1129,7 +1129,7 @@ DateFormatTest::TestTwoDigitYear()
|
|||
return; |
|||
} |
|||
parse2DigitYear(fmt, "5/6/17", date(117, UCAL_JUNE, 5)); |
|||
- parse2DigitYear(fmt, "4/6/34", date(34, UCAL_JUNE, 4));
|
|||
+ parse2DigitYear(fmt, "4/6/34", date(134, UCAL_JUNE, 4));
|
|||
} |
|||
|
|||
// ------------------------------------- |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue