diff --git a/tests/packages.scm b/tests/packages.scm index 803cabb061..8d0d205f54 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -124,7 +124,7 @@ (test-equal "package-source-derivation, snippet" "OK" - (let* ((file (search-bootstrap-binary "guile-2.0.7.tar.xz" + (let* ((file (search-bootstrap-binary "guile-2.0.9.tar.xz" (%current-system))) (sha256 (call-with-input-file file port-sha256)) (fetch (lambda* (store url hash-algo hash diff --git a/tests/union.scm b/tests/union.scm index cb110c3b1e..54e2850942 100644 --- a/tests/union.scm +++ b/tests/union.scm @@ -116,10 +116,10 @@ (directory-exists? "lib/gcc") (file-exists? "include/unistd.h") - ;; The 'include' sub-directory is only found in - ;; glibc-bootstrap, so it should be unified in a + ;; The 'include/c++' sub-directory is only found in + ;; gcc-bootstrap, so it should be unified in a ;; straightforward way, without traversing it. - (eq? 'symlink (stat:type (lstat "include"))) + (eq? 'symlink (stat:type (lstat "include/c++"))) ;; Conversely, several inputs have a 'bin' sub-directory, so ;; unifying it requires traversing them all, and creating a