Syntax set macro (#5138)

Co-authored-by: Laurenz <laurmaedje@gmail.com>

1 files changed, 36 insertions, 0 deletions

diff --git a/tests/suite/model/heading.typ b/tests/suite/model/heading.typ
index 3be9e52b..884f203d 100644
--- a/tests/suite/model/heading.typ
+++ b/tests/suite/model/heading.typ
@@ -35,6 +35,42 @@ multiline.
 = This
   is not.
 
+--- heading-trailing-whitespace ---
+// Whether headings contain trailing whitespace with or without comments/labels.
+// Labels are special cased to immediately end headings in the parser, but also
+// have unique whitespace behavior.
+
+#let join(..xs) = xs.pos().join()
+#let head(h) = heading(depth: 1, h)
+
+// No whitespace.
+#test(head[h], [= h])
+#test(head[h], [= h/**/])
+#test(head[h], [= h<a>])
+#test(head[h], [= h/**/<b>])
+
+// Label behaves differently than normal trailing space and comment.
+#test(head(join[h][ ]), [= h  ])
+#test(head(join[h][ ]), [= h  /**/])
+#test(join(head[h])[ ], [= h  <c>])
+
+// Combinations.
+#test(head(join[h][ ][ ]), [= h  /**/  ])
+#test(join(head[h])[ ][ ], [= h  <d>  ])
+#test(head(join[h][ ]), [= h  /**/<e>])
+#test(join(head[h])[ ], [= h/**/  <f>])
+
+// The first space attaches, but not the second
+#test(join(head(join[h][ ]))[ ], [= h  /**/  <g>])
+
+--- heading-leading-whitespace ---
+// Test that leading whitespace and comments don't matter.
+#test[= h][=        h]
+#test[= h][=   /**/  /**/   h]
+#test[= h][=   /*
+comment spans lines
+*/   h]
+
 --- heading-show-where ---
 // Test styling.
 #show heading.where(level: 5): it => block(