tests: add test cases for PR and issue url handling

Author: yasunariw

test/github_link_test.ml

@@ -23,6 +23,28 @@ let enterprise_repo_insecure = mk_repo ~scheme:"http" "example.org" "example.org
 
 let github_repo = mk_repo "github.com" "api.github.com"
 
+let pr_cases prefix repo =
+  [
+    sprintf "https://%s/ahrefs/monorepo/pull/100" prefix, Some (Pull_request (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/pull/2" prefix, Some (Pull_request (repo, 2));
+    sprintf "https://%s/ahrefs/monorepo/pull/100/" prefix, Some (Pull_request (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/pull/100?arg1=123" prefix, Some (Pull_request (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/pull/abc" prefix, None;
+    sprintf "https://%s/ahrefs/monorepo/pull/" prefix, None;
+    sprintf "https://%s/ahrefs/monorepo/pull" prefix, None;
+  ]
+
+let issue_cases prefix repo =
+  [
+    sprintf "https://%s/ahrefs/monorepo/issues/100" prefix, Some (Issue (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/issues/2" prefix, Some (Issue (repo, 2));
+    sprintf "https://%s/ahrefs/monorepo/issues/100/" prefix, Some (Issue (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/issues/100?arg1=123" prefix, Some (Issue (repo, 100));
+    sprintf "https://%s/ahrefs/monorepo/issues/abc" prefix, None;
+    sprintf "https://%s/ahrefs/monorepo/issues/" prefix, None;
+    sprintf "https://%s/ahrefs/monorepo/issues" prefix, None;
+  ]
+
 let commit_cases prefix repo =
   [
     sprintf "https://%s/ahrefs/monorepo/commit/69c42640" prefix, Some (Commit (repo, "69c42640"));
@@ -42,9 +64,17 @@ let other_cases =
 let cases =
   List.concat
     [
+      pr_cases "github.com" github_repo;
+      issue_cases "github.com" github_repo;
       commit_cases "github.com" github_repo;
+      pr_cases "www.github.com" github_repo;
+      issue_cases "www.github.com" github_repo;
       commit_cases "www.github.com" github_repo;
+      pr_cases "example.org" enterprise_repo1;
+      issue_cases "example.org" enterprise_repo1;
       commit_cases "example.org" enterprise_repo1;
+      pr_cases "example.org/path/to/git" enterprise_repo2;
+      issue_cases "example.org/path/to/git" enterprise_repo2;
       commit_cases "example.org/path/to/git" enterprise_repo2;
       other_cases;
     ]