From 008ba98eb8eef762be1d0c65772bbc240a0ed9be Mon Sep 17 00:00:00 2001 From: corpix Date: Mon, 30 Jan 2023 23:08:56 +0000 Subject: [PATCH] Fix #320 --- nix/racket2nix-test.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/nix/racket2nix-test.rkt b/nix/racket2nix-test.rkt index 6d40b09..a53e287 100755 --- a/nix/racket2nix-test.rkt +++ b/nix/racket2nix-test.rkt @@ -6,9 +6,9 @@ (define suite (begin (test-suite "racket2nix" - (test-equal? "github-url->git-url turns github://.*/branch into git://.*#branch" + (test-equal? "github-url->git-url turns github://.*/branch into https://.*#branch" (github-url->git-url "github://github.com/mordae/racket-systemd/master") - "git://github.com/mordae/racket-systemd.git#master") + "https://github.com/mordae/racket-systemd.git#master") (test-not-false "github-url? detects github:// URL" (github-url? "github://github.com/mordae/racket-systemd/master")) (test-equal? "url-fallback-rev->url-rev-path tolerates github:// with trailing slash" @@ -18,7 +18,7 @@ "github://github.com/stchang/parsack/master/" "b45f0f5ed5f8dd3f1ccebaaec3204b27032843c6")]) url) - "git://github.com/stchang/parsack.git") + "https://github.com/stchang/parsack.git") (test-equal? "github-url->git-url puts the .git in the right place when path query and no trailing slash" - (github-url->git-url "git://github.com/rmculpepper/binaryio?path=binaryio") - "git://github.com/rmculpepper/binaryio.git?path=binaryio")))) + (github-url->git-url "https://github.com/rmculpepper/binaryio?path=binaryio") + "https://github.com/rmculpepper/binaryio.git?path=binaryio"))))