Add support for page references through new `ref.form` property (#4729)

1 files changed, 26 insertions, 0 deletions

diff --git a/tests/suite/model/ref.typ b/tests/suite/model/ref.typ
index cc6d6bf1..2f8e2fa2 100644
--- a/tests/suite/model/ref.typ
+++ b/tests/suite/model/ref.typ
@@ -55,6 +55,32 @@ $ A = 1 $ <eq2>
 @arrgh
 #bibliography("/assets/bib/works.bib")
 
+--- ref-form-page ---
+#set page(numbering: "1")
+
+Text <text> is on #ref(<text>, form: "page").
+See #ref(<setup>, form: "page").
+
+#set page(supplement: [p.])
+
+== Setup <setup>
+Text seen on #ref(<text>, form: "page").
+Text seen on #ref(<text>, form: "page", supplement: "Page").
+
+--- ref-form-page-unambiguous ---
+// Test that page reference is not ambiguous.
+#set page(numbering: "1")
+
+= Introduction <arrgh>
+
+#ref(<arrgh>, form: "page")
+#bibliography("/assets/bib/works.bib")
+
+--- ref-form-page-bibliography ---
+// Error: 2-28 label `<quark>` does not exist in the document
+#ref(<quark>, form: "page")
+#bibliography("/assets/bib/works.bib")
+
 --- issue-4536-non-whitespace-before-ref ---
 // Test reference with non-whitespace before it.
 #figure[] <1>