diff options
Diffstat (limited to 'tests/import/utils.scm')
| -rw-r--r-- | tests/import/utils.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/import/utils.scm b/tests/import/utils.scm index b631ba23268..c82fef78ec7 100644 --- a/tests/import/utils.scm +++ b/tests/import/utils.scm | |||
| @@ -344,4 +344,13 @@ error procedure has been called." | |||
| 344 | (let ((sexp error-called? (test-generate-git-source "1.0.0" "2.0.0"))) | 344 | (let ((sexp error-called? (test-generate-git-source "1.0.0" "2.0.0"))) |
| 345 | error-called?)) | 345 | error-called?)) |
| 346 | 346 | ||
| 347 | (test-equal "tarball-url->git-repository-url, guile" | ||
| 348 | '("https://https.git.savannah.gnu.org/git/guile.git" | ||
| 349 | "https://gitlab.gnome.org/GNOME/brasero.git" | ||
| 350 | "https://github.com/aide/aide") | ||
| 351 | (map tarball-url->git-repository-url | ||
| 352 | '("mirror://gnu/guile/guile-3.0.11.tar.gz" | ||
| 353 | "mirror://gnome/sources/brasero/3.12/brasero-3.12.3.tar.xz" | ||
| 354 | "https://github.com/aide/aide/releases/download/v0.19.3/aide-0.19.3.tar.gz"))) | ||
| 355 | |||
| 347 | (test-end "import-utils") | 356 | (test-end "import-utils") |