Fix tests about endpoint (keep / for git:// and http(s)://)

mirage · Jan 13, 2021 · 6f13511 · 6f13511
1 parent 170b59e
commit 6f13511
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/smart/test_edn.ml b/test/smart/test_edn.ml
@@ -50,7 +50,7 @@ let test04 =
       {
         Smart_git.Endpoint.scheme = `Git;
         host = `Domain v;
-        path = "mirage/ocaml.git";
+        path = "/mirage/ocaml.git";
       } ->
       Alcotest.(check domain_name) "github.com" v github_com
   | Ok v -> Alcotest.failf "Unexpeted Git endpoint: %a" Smart_git.Endpoint.pp v
@@ -63,7 +63,7 @@ let test05 =
       {
         Smart_git.Endpoint.scheme = `HTTP [];
         host = `Domain v;
-        path = "mirage/ocaml.git";
+        path = "/mirage/ocaml.git";
       } ->
       Alcotest.(check domain_name) "github.com" v github_com
   | Ok v -> Alcotest.failf "Unexpeted Git endpoint: %a" Smart_git.Endpoint.pp v
@@ -76,7 +76,7 @@ let test06 =
       {
         Smart_git.Endpoint.scheme = `HTTP [];
         host = `Addr v;
-        path = "mirage/ocaml.git";
+        path = "/mirage/ocaml.git";
       } ->
       Alcotest.(check ipaddr) "10.0.0.0" v private_network
   | Ok v -> Alcotest.failf "Unexpeted Git endpoint: %a" Smart_git.Endpoint.pp v