check only hyperlinked URLs

ocaml-doc · Jul 4, 2023 · 02a381c · 02a381c
1 parent bb390d7
commit 02a381c
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/src/voodoo-gen/main.ml b/src/voodoo-gen/main.ml
@@ -166,7 +166,8 @@ let generate_pkgver output_dir name_filter version_filter =
                 (fun acc path ->
                   let links =
                     Bos.OS.File.read path |> get_ok
-                    |> Olinkcheck.Plaintext.extract_links
+                    |> Olinkcheck.Html.from_string
+                    |> Olinkcheck.Html.extract_links
                   in
                   let status = Olinkcheck.Link.status_many links in
                   let broken =

diff --git a/test/can-render-org-files.t b/test/can-render-org-files.t
@@ -31,7 +31,8 @@ Generates a status.json file
       "others": [
         "linked/p/base/v0.15.1/package.json"
       ]
-    }
+    },
+    "broken_link_files": []
   }
 
 Converted the README.org file in markdown

diff --git a/test/can-render-tables.t b/test/can-render-tables.t
@@ -25,7 +25,8 @@ Generates a status.json file
       "others": [
         "linked/p/ppx_deriving_yaml/0.2.1/package.json"
       ]
-    }
+    },
+    "broken_link_files": []
   }
 
 Generate a README.md file with the tables formatted in HTML