1 files changed, 84 insertions, 4 deletions
diff --git a/test/command/4284.md b/test/command/4284.md
index eddd1b03a..0308f521f 100644
--- a/test/command/4284.md
+++ b/test/command/4284.md
@@ -8,7 +8,34 @@
 ** Children of headers with excluded tags should not appear       :xylophone:
 * This should not appear                                                  :%:
 ^D
-[Header 1 ("noexport-should-appear-if-not-specified-in-excludetags",[],[]) [Str "NOEXPORT",Space,Str "should",Space,Str "appear",Space,Str "if",Space,Str "not",Space,Str "specified",Space,Str "in",Space,Str "EXCLUDE",Subscript [Str "TAGS"],Space,Span ("",["tag"],[("tag-name","noexport")]) [SmallCaps [Str "noexport"]]]]
+[ Header
+    1
+    ( "noexport-should-appear-if-not-specified-in-excludetags"
+    , []
+    , []
+    )
+    [ Str "NOEXPORT"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "if"
+    , Space
+    , Str "not"
+    , Space
+    , Str "specified"
+    , Space
+    , Str "in"
+    , Space
+    , Str "EXCLUDE"
+    , Subscript [ Str "TAGS" ]
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
+]
 ```
 
 ```
@@ -17,7 +44,20 @@
 * This should not appear                                           :elephant:
 * This should appear                                                   :fawn:
 ^D
-[Header 1 ("this-should-appear",[],[]) [Str "This",Space,Str "should",Space,Str "appear",Space,Span ("",["tag"],[("tag-name","fawn")]) [SmallCaps [Str "fawn"]]]]
+[ Header
+    1
+    ( "this-should-appear" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "fawn" ) ] )
+        [ SmallCaps [ Str "fawn" ] ]
+    ]
+]
 ```
 
 ```
@@ -28,7 +68,20 @@
 * This should not appear                                              :hippo:
 * This should appear                                               :noexport:
 ^D
-[Header 1 ("this-should-appear",[],[]) [Str "This",Space,Str "should",Space,Str "appear",Space,Span ("",["tag"],[("tag-name","noexport")]) [SmallCaps [Str "noexport"]]]]
+[ Header
+    1
+    ( "this-should-appear" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
+]
 ```
 
 ```
@@ -36,5 +89,32 @@
 #+EXCLUDE_TAGS:
 * NOEXPORT should appear if not specified in EXCLUDE_TAGS          :noexport:
 ^D
-[Header 1 ("noexport-should-appear-if-not-specified-in-excludetags",[],[]) [Str "NOEXPORT",Space,Str "should",Space,Str "appear",Space,Str "if",Space,Str "not",Space,Str "specified",Space,Str "in",Space,Str "EXCLUDE",Subscript [Str "TAGS"],Space,Span ("",["tag"],[("tag-name","noexport")]) [SmallCaps [Str "noexport"]]]]
+[ Header
+    1
+    ( "noexport-should-appear-if-not-specified-in-excludetags"
+    , []
+    , []
+    )
+    [ Str "NOEXPORT"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "if"
+    , Space
+    , Str "not"
+    , Space
+    , Str "specified"
+    , Space
+    , Str "in"
+    , Space
+    , Str "EXCLUDE"
+    , Subscript [ Str "TAGS" ]
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
+]
 ```