From 92d6c2fc88666cb331bdffc3d29c8804def5bb15 Mon Sep 17 00:00:00 2001
From: Laurenz <laurmaedje@gmail.com>
Date: Mon, 14 Oct 2024 16:18:25 +0200
Subject: Fix tag order with `place` and fr block bugs (#5203)

---
 tests/ref/footnote-block-fr.png      | Bin 0 -> 833 bytes
 tests/suite/introspection/query.typ  |  17 +++++++++++++++++
 tests/suite/layout/flow/footnote.typ |   8 ++++++++
 3 files changed, 25 insertions(+)
 create mode 100644 tests/ref/footnote-block-fr.png

(limited to 'tests')

diff --git a/tests/ref/footnote-block-fr.png b/tests/ref/footnote-block-fr.png
new file mode 100644
index 00000000..451e4d77
Binary files /dev/null and b/tests/ref/footnote-block-fr.png differ
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)
 
-- 
cgit v1.2.3