diff options
| -rw-r--r-- | guix/download.scm | 5 | ||||
| -rw-r--r-- | tests/lint.scm | 11 |
2 files changed, 13 insertions, 3 deletions
diff --git a/guix/download.scm b/guix/download.scm index 4e219c9f49..47a2fcb180 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 David Craven <david@craven.ch> +;;; Copyright © 2016, 2017, 2020, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com> ;;; @@ -261,8 +262,8 @@ "http://ftp.debian.org/debian/" "http://archive.debian.org/debian/") (kde - "http://download.kde.org" - "http://download.kde.org/Attic" ; for when it gets archived. + "https://download.kde.org/" + "https://download.kde.org/Attic/" ; for when it gets archived. ;; Mirrors from http://files.kde.org/extra/mirrors.html ;; Europe "http://mirror.easyname.at/kde" diff --git a/tests/lint.scm b/tests/lint.scm index 6bb24370da..8be74d2604 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -5,7 +5,7 @@ ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2017 Alex Kost <alezost@gmail.com> -;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2017, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2020 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> @@ -1102,6 +1102,15 @@ (single-lint-warning-message (check-mirror-url (dummy-package "x" (source source)))))) +(test-equal "mirror-url: kde suggestion" + "URL should be 'mirror://kde/stable/gcompris/qt/src/gcompris-qt-2.3.tar.xz'" + (let ((source (origin + (method url-fetch) + (uri "https://download.kde.org/stable/gcompris/qt/src/gcompris-qt-2.3.tar.xz") + (sha256 %null-sha256)))) + (single-lint-warning-message + (check-mirror-url (dummy-package "x" (source source)))))) + (test-equal "github-url" '() (with-http-server `((200 ,%long-string)) |