kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

download: Use https for main KDE source.

Browse Source 
* guix/download.scm (%mirrors)[kde]: Use https URIs for main KDE mirrors.
* tests/lint.scm ("mirror-url: kde suggestion"): New test.
This commit is contained in:
Efraim Flashner 2022-03-29 00:03:03 +03:00
parent 53b04339fe
commit 67213a2759
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/download.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; 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 © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com> ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;; ;;;
@ -261,8 +262,8 @@
"http://ftp.debian.org/debian/" "http://ftp.debian.org/debian/"
"http://archive.debian.org/debian/") "http://archive.debian.org/debian/")
(kde (kde
"http://download.kde.org" "https://download.kde.org/"
"http://download.kde.org/Attic" ; for when it gets archived. "https://download.kde.org/Attic/" ; for when it gets archived.
;; Mirrors from http://files.kde.org/extra/mirrors.html ;; Mirrors from http://files.kde.org/extra/mirrors.html
;; Europe ;; Europe
"http://mirror.easyname.at/kde" "http://mirror.easyname.at/kde"

11
tests/lint.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017 Alex Kost <alezost@gmail.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 © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2020 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2020 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
@ -1102,6 +1102,15 @@
(single-lint-warning-message (single-lint-warning-message
(check-mirror-url (dummy-package "x" (source source)))))) (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" (test-equal "github-url"
'() '()
(with-http-server `((200 ,%long-string)) (with-http-server `((200 ,%long-string))