add test

Signed-off-by: lubegasimon <lubegasimon73@gmail.com>

Author: lubegasimon

test/xref2/reference_to_page_with_hyphen.t/bad_references.mli

@@ -0,0 +1,5 @@
+(** *)
+
+(** Page not found: {!page-"not_found"} *)
+
+(** Explicit label in page but not found: {!page-"p-foo".section-not_found} *)

test/xref2/reference_to_page_with_hyphen.t/good_references.mli

@@ -0,0 +1,6 @@
+type t
+
+(** {!page-"p-foo"}
+    Label in page: {!page-"p-foo".P1} {!page-"p-foo".P2} *)
+
+(** Explicit label in page: {!page-"p-foo".section-P1} *)

test/xref2/reference_to_page_with_hyphen.t/p-foo.mld

@@ -0,0 +1,7 @@
+{0 Page1}
+
+{1:P1 Label1}
+
+{1:P2 Label2}
+
+{!M} {!M.t}

test/xref2/reference_to_page_with_hyphen.t/run.t

@@ -0,0 +1,25 @@
+# References to pages and items in pages
+
+  $ compile p-foo.mld good_references.mli bad_references.mli
+
+Every references in `Good_references` should resolve:
+
+  $ jq_scan_references() { jq -c '.. | .["`Reference"]? | select(.) | .[0]'; }
+
+  $ odoc_print good_references.odocl | jq_scan_references
+  {"`Resolved":{"`Identifier":{"`LeafPage":[{"`RootPage":"test"},"p-foo"]}}}
+  {"`Resolved":{"`Identifier":{"`Label":[{"`LeafPage":[{"`RootPage":"test"},"p-foo"]},"P1"]}}}
+  {"`Resolved":{"`Identifier":{"`Label":[{"`LeafPage":[{"`RootPage":"test"},"p-foo"]},"P2"]}}}
+  {"`Resolved":{"`Identifier":{"`Label":[{"`LeafPage":[{"`RootPage":"test"},"p-foo"]},"P1"]}}}
+
+Every references in `Bad_references` should not:
+
+  $ odoc_print bad_references.odocl | jq_scan_references
+  {"`Root":["not_found","`TPage"]}
+  {"`Label":[{"`Root":["p-foo","`TPage"]},"not_found"]}
+
+Every references in `p-foo` should resolve:
+
+  $ odoc_print page-p-foo.odocl | jq_scan_references
+  {"`Root":["M","`TUnknown"]}
+  {"`Dot":[{"`Root":["M","`TUnknown"]},"t"]}

test/xref2/reference_with_no_kind.t/bad_references.mli

@@ -0,0 +1,5 @@
+(** *)
+
+(** Page not found: {!"not_found"} *)
+
+(** Explicit label in page but not found: {!"foo"."bar".section-not_found} *)

test/xref2/reference_with_no_kind.t/foo.bar.mld

@@ -0,0 +1,7 @@
+{0 Page1}
+
+{1:P1 Label1}
+
+{1:P2 Label2}
+
+{!M} {!M.t}

test/xref2/reference_with_no_kind.t/good_references.mli

@@ -0,0 +1,6 @@
+type t
+
+(** {!"foo"."bar"}
+    Label in page: {!"foo"."bar".P1} {!"foo"."bar".P2} *)
+
+(** Explicit label in page: {!"foo"."bar".section-P1} *)

test/xref2/reference_with_no_kind.t/run.t

@@ -0,0 +1,20 @@
+# References to pages and items in pages
+
+  $ compile foo.bar.mld good_references.mli bad_references.mli
+
+Every references in `Good_references` should resolve:
+
+  $ jq_scan_references() { jq -c '.. | .["`Reference"]? | select(.) | .[0]'; }
+
+  $ odoc_print good_references.odocl | jq_scan_references
+
+
+Every references in `Bad_references` should not:
+
+  $ odoc_print bad_references.odocl | jq_scan_references
+
+
+Every references in `foo.bar` should resolve:
+
+  $ odoc_print foo.bar.odocl | jq_scan_references
+

test/xref2/references_to_pages_with_dot_and_hyphen.t/bad_references.mli

@@ -0,0 +1,5 @@
+(** *)
+
+(** Page not found: {!page-"not_found"} *)
+
+(** Explicit label in page but not found: {!page-"p-1.2.3".section-not_found} *)

test/xref2/references_to_pages_with_dot_and_hyphen.t/good_references.mli

@@ -0,0 +1,6 @@
+type t
+
+(** {!page-"p-1.2.3"}
+    Label in page: {!page-"p-1.2.3".P1} {!page-"p-1.2.3".P2} *)
+
+(** Explicit label in page: {!page-"p-1.2.3".section-P1} *)