summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-18 01:06:24 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-18 01:07:31 +0100
commit1ffa7090b99dfd2f54fa883929c5e78d7852657a (patch)
tree1c8bd191e31212e172b3e9158408cccd571a5020 /tests
parent08ba7ff318720d926215de83daed0da628908ca3 (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.scm4
-rw-r--r--tests/derivations.scm2
-rw-r--r--tests/guix-build.sh8
-rw-r--r--tests/guix-daemon.sh2
-rw-r--r--tests/guix-package.sh4
-rw-r--r--tests/packages.scm6
-rw-r--r--tests/store.scm2
-rw-r--r--tests/union.scm2
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 +;
27then false; else true; fi 27then 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.
30if guix-build -e '(@ (distro packages bootstrap) %bootstrap-glibc)' -S 30if guix-build -e '(@ (gnu packages bootstrap) %bootstrap-glibc)' -S
31then false; else true; fi 31then false; else true; fi
32 32
33# Should pass. 33# Should pass.
34guix-build -e '(@@ (distro packages base) %bootstrap-guile)' | \ 34guix-build -e '(@@ (gnu packages base) %bootstrap-guile)' | \
35 grep -e '-guile-' 35 grep -e '-guile-'
36guix-build hello -d | \ 36guix-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.
43result="t-result-$$" 43result="t-result-$$"
44guix-build -r "$result" \ 44guix-build -r "$result" \
45 -e '(@@ (distro packages base) %bootstrap-guile)' 45 -e '(@@ (gnu packages base) %bootstrap-guile)'
46test -x "$result/bin/guile" 46test -x "$result/bin/guile"
47 47
48# Should fail, because $result already exists. 48# Should fail, because $result already exists.
49if guix-build -r "$result" -e '(@@ (distro packages base) %bootstrap-guile)' 49if guix-build -r "$result" -e '(@@ (gnu packages base) %bootstrap-guile)'
50then false; else true; fi 50then false; else true; fi
51 51
52rm -f "$result" 52rm -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
25guix-daemon --version 25guix-daemon --version
26guix-build --version 26guix-build --version
27 27
28guix-build -e '(@ (distro packages bootstrap) %bootstrap-guile)' 28guix-build -e '(@ (gnu packages bootstrap) %bootstrap-guile)'
29guix-build coreutils -n 29guix-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
33trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-'"$$" EXIT 33trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-'"$$" EXIT
34 34
35boot_guile="`guix-build -e '(@ (distro packages bootstrap) %bootstrap-guile)'`" 35boot_guile="`guix-build -e '(@ (gnu packages bootstrap) %bootstrap-guile)'`"
36 36
37guix-package --bootstrap -p "$profile" -i "$boot_guile" 37guix-package --bootstrap -p "$profile" -i "$boot_guile"
38test -L "$profile" && test -L "$profile-1-link" 38test -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.
48if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null 48if guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' 2> /dev/null
49then 49then
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))