Fix tag order with `place` and fr block bugs (#5203)

3 files changed, 25 insertions, 0 deletions

diff --git a/tests/ref/footnote-block-fr.png b/tests/ref/footnote-block-fr.png
new file mode 100644
index 00000000..451e4d77
--- /dev/null
+++ b/tests/ref/footnote-block-fr.png
diff --git a/tests/suite/introspection/query.typ b/tests/suite/introspection/query.typ
index ddb518f5..94e82820 100644
--- a/tests/suite/introspection/query.typ
+++ b/tests/suite/introspection/query.typ
@@ -233,3 +233,20 @@
 #quote[NOP] <nop>
 
 #context query(<nop>).first()
+
+--- issue-5117-query-order-place ---
+#let t(expected) = context {
+  let elems = query(selector(metadata).after(here()))
+  let val = elems.first().value
+  test(val, expected)
+}
+
+#{
+  t("a")
+  place(metadata("a"))
+}
+
+#{
+  t("b")
+  block(height: 1fr, metadata("b"))
+}
diff --git a/tests/suite/layout/flow/footnote.typ b/tests/suite/layout/flow/footnote.typ
index 4cf49777..3230c3da 100644
--- a/tests/suite/layout/flow/footnote.typ
+++ b/tests/suite/layout/flow/footnote.typ
@@ -114,6 +114,14 @@ Beautiful footnotes. #footnote[Wonderful, aren't they?]
 A
 #block(footnote[hello])
 
+--- footnote-block-fr ---
+#set page(height: 110pt)
+A
+#block(width: 100%, height: 1fr, fill: aqua)[
+  B #footnote[I] #footnote[II]
+]
+C
+
 --- footnote-float-priority ---
 #set page(height: 100pt)