diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-18 01:06:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-18 01:07:31 +0100 |
| commit | 1ffa7090b99dfd2f54fa883929c5e78d7852657a (patch) | |
| tree | 1c8bd191e31212e172b3e9158408cccd571a5020 /tests | |
| parent | 08ba7ff318720d926215de83daed0da628908ca3 (diff) | |
distro: Change the module name space to (gnu ...).
* distro: Rename to...
* gnu: ... this. Update module names accordingly.
* Makefile.am: Adjust accordingly.
* po/POTFILES.in: Likewise.
* distro.scm: Search for files under /gnu/packages instead of
/distro/packages.
* gnu/packages/base.scm (ld-wrapper-boot3): Likewise.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/builders.scm | 4 | ||||
| -rw-r--r-- | tests/derivations.scm | 2 | ||||
| -rw-r--r-- | tests/guix-build.sh | 8 | ||||
| -rw-r--r-- | tests/guix-daemon.sh | 2 | ||||
| -rw-r--r-- | tests/guix-package.sh | 4 | ||||
| -rw-r--r-- | tests/packages.scm | 6 | ||||
| -rw-r--r-- | tests/store.scm | 2 | ||||
| -rw-r--r-- | tests/union.scm | 2 |
8 files changed, 15 insertions, 15 deletions
diff --git a/tests/builders.scm b/tests/builders.scm index a1e3f8088af..7fafaf5dcac 100644 --- a/tests/builders.scm +++ b/tests/builders.scm | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | #:use-module (guix base32) | 26 | #:use-module (guix base32) |
| 27 | #:use-module (guix derivations) | 27 | #:use-module (guix derivations) |
| 28 | #:use-module ((guix packages) #:select (package-derivation)) | 28 | #:use-module ((guix packages) #:select (package-derivation)) |
| 29 | #:use-module (distro packages bootstrap) | 29 | #:use-module (gnu packages bootstrap) |
| 30 | #:use-module (ice-9 match) | 30 | #:use-module (ice-9 match) |
| 31 | #:use-module (srfi srfi-1) | 31 | #:use-module (srfi srfi-1) |
| 32 | #:use-module (srfi srfi-64)) | 32 | #:use-module (srfi srfi-64)) |
| @@ -48,7 +48,7 @@ | |||
| 48 | (map (match-lambda | 48 | (map (match-lambda |
| 49 | ((name package) | 49 | ((name package) |
| 50 | (list name (package-derivation %store package)))) | 50 | (list name (package-derivation %store package)))) |
| 51 | (@@ (distro packages base) %boot0-inputs)))) | 51 | (@@ (gnu packages base) %boot0-inputs)))) |
| 52 | 52 | ||
| 53 | (define network-reachable? | 53 | (define network-reachable? |
| 54 | (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV))) | 54 | (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV))) |
diff --git a/tests/derivations.scm b/tests/derivations.scm index 166a9174900..21c2a6acd95 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | #:use-module (guix base32) | 24 | #:use-module (guix base32) |
| 25 | #:use-module ((guix packages) #:select (package-derivation)) | 25 | #:use-module ((guix packages) #:select (package-derivation)) |
| 26 | #:use-module ((distro) #:select (search-bootstrap-binary)) | 26 | #:use-module ((distro) #:select (search-bootstrap-binary)) |
| 27 | #:use-module (distro packages bootstrap) | 27 | #:use-module (gnu packages bootstrap) |
| 28 | #:use-module (srfi srfi-1) | 28 | #:use-module (srfi srfi-1) |
| 29 | #:use-module (srfi srfi-11) | 29 | #:use-module (srfi srfi-11) |
| 30 | #:use-module (srfi srfi-26) | 30 | #:use-module (srfi srfi-26) |
diff --git a/tests/guix-build.sh b/tests/guix-build.sh index f03afbd494d..fccf2168b16 100644 --- a/tests/guix-build.sh +++ b/tests/guix-build.sh | |||
| @@ -27,11 +27,11 @@ if guix-build -e +; | |||
| 27 | then false; else true; fi | 27 | then false; else true; fi |
| 28 | 28 | ||
| 29 | # Should fail because this is a source-less package. | 29 | # Should fail because this is a source-less package. |
| 30 | if guix-build -e '(@ (distro packages bootstrap) %bootstrap-glibc)' -S | 30 | if guix-build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S |
| 31 | then false; else true; fi | 31 | then false; else true; fi |
| 32 | 32 | ||
| 33 | # Should pass. | 33 | # Should pass. |
| 34 | guix-build -e '(@@ (distro packages base) %bootstrap-guile)' | \ | 34 | guix-build -e '(@@ (gnu packages base) %bootstrap-guile)' | \ |
| 35 | grep -e '-guile-' | 35 | grep -e '-guile-' |
| 36 | guix-build hello -d | \ | 36 | guix-build hello -d | \ |
| 37 | grep -e '-hello-[0-9\.]\+\.drv$' | 37 | grep -e '-hello-[0-9\.]\+\.drv$' |
| @@ -42,11 +42,11 @@ if guix-build hello-0.0.1 -n; then false; else true; fi | |||
| 42 | # Keep a symlink to the result, registered as a root. | 42 | # Keep a symlink to the result, registered as a root. |
| 43 | result="t-result-$$" | 43 | result="t-result-$$" |
| 44 | guix-build -r "$result" \ | 44 | guix-build -r "$result" \ |
| 45 | -e '(@@ (distro packages base) %bootstrap-guile)' | 45 | -e '(@@ (gnu packages base) %bootstrap-guile)' |
| 46 | test -x "$result/bin/guile" | 46 | test -x "$result/bin/guile" |
| 47 | 47 | ||
| 48 | # Should fail, because $result already exists. | 48 | # Should fail, because $result already exists. |
| 49 | if guix-build -r "$result" -e '(@@ (distro packages base) %bootstrap-guile)' | 49 | if guix-build -r "$result" -e '(@@ (gnu packages base) %bootstrap-guile)' |
| 50 | then false; else true; fi | 50 | then false; else true; fi |
| 51 | 51 | ||
| 52 | rm -f "$result" | 52 | rm -f "$result" |
diff --git a/tests/guix-daemon.sh b/tests/guix-daemon.sh index ba652b3dcea..0d39ff4c248 100644 --- a/tests/guix-daemon.sh +++ b/tests/guix-daemon.sh | |||
| @@ -25,5 +25,5 @@ set -e | |||
| 25 | guix-daemon --version | 25 | guix-daemon --version |
| 26 | guix-build --version | 26 | guix-build --version |
| 27 | 27 | ||
| 28 | guix-build -e '(@ (distro packages bootstrap) %bootstrap-guile)' | 28 | guix-build -e '(@ (gnu packages bootstrap) %bootstrap-guile)' |
| 29 | guix-build coreutils -n | 29 | guix-build coreutils -n |
diff --git a/tests/guix-package.sh b/tests/guix-package.sh index fc809396466..7b7835dcaa2 100644 --- a/tests/guix-package.sh +++ b/tests/guix-package.sh | |||
| @@ -32,7 +32,7 @@ rm -f "$profile" | |||
| 32 | 32 | ||
| 33 | trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-'"$$" EXIT | 33 | trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-'"$$" EXIT |
| 34 | 34 | ||
| 35 | boot_guile="`guix-build -e '(@ (distro packages bootstrap) %bootstrap-guile)'`" | 35 | boot_guile="`guix-build -e '(@ (gnu packages bootstrap) %bootstrap-guile)'`" |
| 36 | 36 | ||
| 37 | guix-package --bootstrap -p "$profile" -i "$boot_guile" | 37 | guix-package --bootstrap -p "$profile" -i "$boot_guile" |
| 38 | test -L "$profile" && test -L "$profile-1-link" | 38 | test -L "$profile" && test -L "$profile-1-link" |
| @@ -47,7 +47,7 @@ test -f "$profile/bin/guile" | |||
| 47 | # Check whether we have network access. | 47 | # Check whether we have network access. |
| 48 | if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null | 48 | if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null |
| 49 | then | 49 | then |
| 50 | boot_make="`guix-build -e '(@@ (distro packages base) gnu-make-boot0)'`" | 50 | boot_make="`guix-build -e '(@@ (gnu packages base) gnu-make-boot0)'`" |
| 51 | guix-package --bootstrap -p "$profile" -i "$boot_make" | 51 | guix-package --bootstrap -p "$profile" -i "$boot_make" |
| 52 | test -L "$profile-2-link" | 52 | test -L "$profile-2-link" |
| 53 | test -f "$profile/bin/make" && test -f "$profile/bin/guile" | 53 | test -f "$profile/bin/make" && test -f "$profile/bin/guile" |
diff --git a/tests/packages.scm b/tests/packages.scm index f15f404db61..07d2ea54c75 100644 --- a/tests/packages.scm +++ b/tests/packages.scm | |||
| @@ -25,8 +25,8 @@ | |||
| 25 | #:use-module (guix build-system trivial) | 25 | #:use-module (guix build-system trivial) |
| 26 | #:use-module (guix build-system gnu) | 26 | #:use-module (guix build-system gnu) |
| 27 | #:use-module (distro) | 27 | #:use-module (distro) |
| 28 | #:use-module (distro packages base) | 28 | #:use-module (gnu packages base) |
| 29 | #:use-module (distro packages bootstrap) | 29 | #:use-module (gnu packages bootstrap) |
| 30 | #:use-module (srfi srfi-26) | 30 | #:use-module (srfi srfi-26) |
| 31 | #:use-module (srfi srfi-64) | 31 | #:use-module (srfi srfi-64) |
| 32 | #:use-module (rnrs io ports) | 32 | #:use-module (rnrs io ports) |
| @@ -130,7 +130,7 @@ | |||
| 130 | (test-assert "GNU Make, bootstrap" | 130 | (test-assert "GNU Make, bootstrap" |
| 131 | ;; GNU Make is the first program built during bootstrap; we choose it | 131 | ;; GNU Make is the first program built during bootstrap; we choose it |
| 132 | ;; here so that the test doesn't last for too long. | 132 | ;; here so that the test doesn't last for too long. |
| 133 | (let ((gnu-make (@@ (distro packages base) gnu-make-boot0))) | 133 | (let ((gnu-make (@@ (gnu packages base) gnu-make-boot0))) |
| 134 | (and (package? gnu-make) | 134 | (and (package? gnu-make) |
| 135 | (or (location? (package-location gnu-make)) | 135 | (or (location? (package-location gnu-make)) |
| 136 | (not (package-location gnu-make))) | 136 | (not (package-location gnu-make))) |
diff --git a/tests/store.scm b/tests/store.scm index 3b3a23489d2..c10c035d5de 100644 --- a/tests/store.scm +++ b/tests/store.scm | |||
| @@ -21,7 +21,7 @@ | |||
| 21 | #:use-module (guix store) | 21 | #:use-module (guix store) |
| 22 | #:use-module (guix utils) | 22 | #:use-module (guix utils) |
| 23 | #:use-module (guix base32) | 23 | #:use-module (guix base32) |
| 24 | #:use-module (distro packages bootstrap) | 24 | #:use-module (gnu packages bootstrap) |
| 25 | #:use-module (ice-9 match) | 25 | #:use-module (ice-9 match) |
| 26 | #:use-module (srfi srfi-1) | 26 | #:use-module (srfi srfi-1) |
| 27 | #:use-module (srfi srfi-11) | 27 | #:use-module (srfi srfi-11) |
diff --git a/tests/union.scm b/tests/union.scm index 5bbf992a59b..455bdb208d9 100644 --- a/tests/union.scm +++ b/tests/union.scm | |||
| @@ -25,7 +25,7 @@ | |||
| 25 | #:use-module (guix build union) | 25 | #:use-module (guix build union) |
| 26 | #:use-module ((guix build utils) | 26 | #:use-module ((guix build utils) |
| 27 | #:select (with-directory-excursion directory-exists?)) | 27 | #:select (with-directory-excursion directory-exists?)) |
| 28 | #:use-module (distro packages bootstrap) | 28 | #:use-module (gnu packages bootstrap) |
| 29 | #:use-module (srfi srfi-1) | 29 | #:use-module (srfi srfi-1) |
| 30 | #:use-module (srfi srfi-64) | 30 | #:use-module (srfi srfi-64) |
| 31 | #:use-module (ice-9 match)) | 31 | #:use-module (ice-9 match)) |
