metanorma-standoc 1.3.6 → 1.3.7

data/spec/asciidoctor-standoc/inline_spec.rb

@@ -2,7 +2,7 @@ require "spec_helper"
 
 RSpec.describe Asciidoctor::Standoc do
   it "processes inline_quoted formatting" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{DUMBQUOTE_BLANK_HDR}
       _Physical noise
       sources_
@@ -44,7 +44,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "properly handles inline substitution" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{DUMBQUOTE_BLANK_HDR}
 
       stem:[n < 1] +
@@ -62,7 +62,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "normalises inline stem" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{DUMBQUOTE_BLANK_HDR}
 
       stem:[n < 1]
@@ -80,7 +80,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "generates desired smart quotes for 'dd'" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       '99'.
 
@@ -94,7 +94,7 @@ RSpec.describe Asciidoctor::Standoc do
 
 
   it "processes breaks" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       Line break +
       line break
@@ -113,7 +113,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes links" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       mailto:fred@example.com
       http://example.com[]
@@ -132,7 +132,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
     it "processes bookmarks" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       Text [[bookmark]] Text
     INPUT
@@ -145,7 +145,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
     it "processes crossreferences" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [[reference]]
       == Section
@@ -172,7 +172,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
     it "processes bibliographic anchors" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -202,7 +202,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes footnotes" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       Hello!footnote:[Footnote text]
 

data/spec/asciidoctor-standoc/lists_spec.rb

@@ -16,7 +16,7 @@ RSpec.describe Asciidoctor::Standoc do
       List F:: List G
 
     INPUT
-    expect(strip_guid(output)).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(output))).to be_equivalent_to xmlpp(<<~"OUTPUT")
             #{BLANK_HDR}
        <sections>
          <ul id="_">
@@ -98,7 +98,7 @@ RSpec.describe Asciidoctor::Standoc do
       Note 3.
 
     INPUT
-    expect(strip_guid(output)).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(output))).to be_equivalent_to xmlpp(<<~"OUTPUT")
             #{BLANK_HDR}
        <sections><ul id="id">
          <li>
@@ -165,7 +165,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
     it "anchors lists and list items" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [[id1]]
       * [[id2]] List item

data/spec/asciidoctor-standoc/macros_spec.rb

@@ -2,7 +2,7 @@ require "spec_helper"
 
 RSpec.describe Asciidoctor::Standoc do
   it "processes the Asciidoctor::Standoc inline macros" do
-    expect(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       alt:[term1]
       deprecated:[term1]
@@ -19,7 +19,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes the TODO custom admonition" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       TODO: Note1
 
@@ -45,8 +45,31 @@ RSpec.describe Asciidoctor::Standoc do
     OUTPUT
   end
 
+  it "generates pseudocode examples, with formatting and initial indentation" do
+        expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
+        #{ASCIIDOC_BLANK_HDR}
+
+        [pseudocode]
+        ====
+          *A* +
+                [smallcap]#B#
+
+          _C_
+        ====
+        INPUT
+        #{BLANK_HDR}
+        <sections>
+  <figure id="_" class="pseudocode"><p id="_">  <strong>A</strong><br/>
+        <smallcap>B</smallcap></p>
+<p id="_">  <em>C</em></p></figure>
+</sections>
+</standard-document>
+     OUTPUT
+    end
+
+
   it "processes the Ruby markups" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       ruby:楽聖少女[がくせいしょうじょ]
@@ -62,7 +85,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes the PlantUML macro" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).gsub(%r{plantuml/[^.]{36}\.}, "plantuml/_.")).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).gsub(%r{plantuml/[^.]{36}\.}, "plantuml/_."))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       [plantuml]
@@ -113,7 +136,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes the PlantUML macro with imagesdir" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).gsub(%r{spec/assets/[^.]+\.}, "spec/assets/_.")).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).gsub(%r{spec/assets/[^.]+\.}, "spec/assets/_."))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       = Document title
       Author
       :docfile: test.adoc
@@ -161,7 +184,7 @@ OUTPUT
     INPUT
 
     mock_plantuml_disabled
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       [plantuml]
@@ -184,7 +207,7 @@ Bob --&gt; Alice: Authentication Response
 Alice -&gt; Bob: Another authentication Request
 Alice &lt;-- Bob: another authentication Response
 @enduml</sourcecode>
-        </sourcecode>
+        </sections>
        </standard-document>
     OUTPUT
   end

data/spec/asciidoctor-standoc/refs_dl_spec.rb

@@ -3,7 +3,7 @@ require "relaton_iso"
 
 RSpec.describe Asciidoctor::Standoc do
     it "processes simple dl reference" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -71,7 +71,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
 it "processes complex dl reference" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
 #{ASCIIDOC_BLANK_HDR}
 [bibliography]
 == Normative References
@@ -440,7 +440,7 @@ OUTPUT
        end
        
        it "processes complex dl reference with dot path keys" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
 #{ASCIIDOC_BLANK_HDR}
 [bibliography]
 == Normative References

data/spec/asciidoctor-standoc/refs_spec.rb

@@ -4,7 +4,7 @@ require "relaton_ietf"
 
 RSpec.describe Asciidoctor::Standoc do
     it "processes simple ISO reference" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -33,7 +33,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes simple ISO reference with date range" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -74,7 +74,7 @@ RSpec.describe Asciidoctor::Standoc do
 
         * [[[iso123,ISO 123]]] _Standard_
       INPUT
-    expect(strip_guid(Asciidoctor.convert(input, backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(input, backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
        #{BLANK_HDR}
        <sections>
        </sections><bibliography><references id="_" obligation="informative"><title>Normative References</title>
@@ -131,7 +131,7 @@ RSpec.describe Asciidoctor::Standoc do
   it "fetches simple ISO reference" do
     # mock_isobib_get_123
     VCR.use_cassette "isobib_get_123" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
         #{ISOBIB_BLANK_HDR}
         [bibliography]
         == Normative References
@@ -246,7 +246,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes simple IEC reference" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -278,7 +278,7 @@ RSpec.describe Asciidoctor::Standoc do
     # mock_isobib_get_iec12382
     # mock_isobib_get_124
     VCR.use_cassette "dated_iso_ref_joint_iso_iec" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
         #{ISOBIB_BLANK_HDR}
         [bibliography]
         == Normative References
@@ -398,12 +398,14 @@ RSpec.describe Asciidoctor::Standoc do
   it "processes draft ISO reference" do
     #stub_fetch_ref no_year: true, note: "The standard is in press"
 
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
 
-      * [[[iso123,ISO 123:--]]] footnote:[The standard is in press] _Standard_
+      * [[[iso123,ISO 123:--]]] _Standard_
+      * [[[iso124,ISO 124:—]]]{blank}footnote:[The standard is in press] _Standard_
+      * [[[iso125,ISO 125:&ndash;]]], footnote:[The standard is in press] _Standard_
     INPUT
        #{BLANK_HDR}
        <sections>
@@ -422,6 +424,33 @@ RSpec.describe Asciidoctor::Standoc do
              <name>ISO</name>
            </organization>
          </contributor>
+       </bibitem>
+         <bibitem id="iso124" type="standard">
+         <title format="text/plain">Standard</title>
+         <docidentifier>ISO 124:–</docidentifier>
+         <date type="published">
+           <on>--</on>
+         </date>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
+         <note format="text/plain">ISO DATE: The standard is in press</note>
+       </bibitem>
+         <bibitem id="iso125" type="standard">
+         <title format="text/plain">Standard</title>
+         <docidentifier>ISO 125:–</docidentifier>
+         <date type="published">
+           <on>--</on>
+         </date>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
          <note format="text/plain">ISO DATE: The standard is in press</note>
        </bibitem>
        </references>
@@ -433,7 +462,7 @@ RSpec.describe Asciidoctor::Standoc do
   it "processes all-parts ISO reference" do
     #stub_fetch_ref(all_parts: true)
 
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -470,7 +499,7 @@ RSpec.describe Asciidoctor::Standoc do
   it "processes RFC reference in Normative References" do
     # mock_rfcbib_get_rfc8341
     VCR.use_cassette "rfcbib_get_rfc8341" do
-      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
         #{ISOBIB_BLANK_HDR}
         [bibliography]
         == Normative References
@@ -495,6 +524,7 @@ RSpec.describe Asciidoctor::Standoc do
   <bibitem id="iso123">
     <fetched>#{Date.today}</fetched>
     <title format="text/plain" language="en" script="Latn">Network Configuration Access Control Model</title>
+    <uri type='xml'>https://xml2rfc.tools.ietf.org/public/rfc/bibxml/reference.RFC.8341.xml</uri>
     <uri type="src">https://www.rfc-editor.org/info/rfc8341</uri>
     <docidentifier type="IETF">RFC 8341</docidentifier>
     <docidentifier type="DOI">10.17487/RFC8341</docidentifier>
@@ -549,7 +579,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes non-ISO reference in Normative References" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Normative References
@@ -575,7 +605,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
   it "processes non-ISO reference in Bibliography" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [bibliography]
       == Bibliography
@@ -621,7 +651,7 @@ RSpec.describe Asciidoctor::Standoc do
     expect(RelatonIso::IsoBibliography).to receive(:search).with("ISO 123") do
       raise RelatonBib::RequestError.new "getaddrinfo"
     end.at_least :once
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp( <<~"OUTPUT")
       #{ISOBIB_BLANK_HDR}
       [bibliography]
       == Normative References

data/spec/asciidoctor-standoc/section_spec.rb

@@ -2,7 +2,7 @@ require "spec_helper"
 
 RSpec.describe Asciidoctor::Standoc do
   it "processes sections" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).sub(/^.*<preface/m, "<preface")).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       .Foreword
 
@@ -75,6 +75,7 @@ RSpec.describe Asciidoctor::Standoc do
 
       === Bibliography Subsection
     INPUT
+             #{BLANK_HDR.sub(/<status>/, "<abstract> <p id='_'>Text</p> </abstract><status>")}
     <preface><abstract id="_">
   <p id="_">Text</p>
 </abstract><foreword obligation="informative">
@@ -166,7 +167,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
     it "processes sections with language and script attributes" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).sub(/^.*<preface/m, "<preface")).to be_equivalent_to <<~"OUTPUT"
+      expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       .Foreword
 
@@ -262,6 +263,7 @@ RSpec.describe Asciidoctor::Standoc do
       [language=en,script=Latn]
       === Bibliography Subsection
     INPUT
+             #{BLANK_HDR.sub(/<status>/, "<abstract> <p id='_'>Text</p> </abstract><status>")}
      <preface><abstract id="_" language="en" script="Latn">
          <p id="_">Text</p>
        </abstract><foreword obligation="informative">
@@ -353,7 +355,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
   it "processes sections with title attributes" do
-    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)).sub(/^.*<preface/m, "<preface")).to be_equivalent_to <<~"OUTPUT"
+    expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       .Foreword
 
@@ -406,63 +408,79 @@ RSpec.describe Asciidoctor::Standoc do
 
       === Bibliography Subsection
     INPUT
-       <preface><abstract id="_">
-         <p id="_">Text</p>
-       </abstract>
-       <foreword obligation="informative">
-         <title>Foreword</title>
-         <p id="_">Text</p>
-       </foreword>
-       <introduction id="_" obligation="informative"><title>Introduction</title><clause id="_" inline-header="false" obligation="informative">
-         <title>Introduction Subsection</title>
-       </clause>
-       </introduction>
-       </preface>
-       <sections>
-       <terms id="_" obligation="normative">
-         <title>Terms and definitions</title>
-         <p>For the purposes of this document,
-       the following terms and definitions apply.</p>
-         <term id="_">
-         <preferred>Term1</preferred>
-       </term>
-       </terms>
-       <clause id="_" obligation="normative"><title>Terms and definitions</title><terms id="_" obligation="normative">
-         <title>Normal Terms</title>
-         <term id="_">
-         <preferred>Term2</preferred>
-       </term>
-       </clause>
-       <definitions id="_"><title>Σύμβολα και Συντομογραφίες</title> </definitions></terms>
-       <definitions id="_"><title>Σύμβολα και Συντομογραφίες</title> </definitions>
-       <clause id="_" inline-header="false" obligation="normative"><title>Clause 4</title><clause id="_" inline-header="false" obligation="normative">
-         <title>Introduction</title>
-       </clause>
-       <clause id="_" inline-header="false" obligation="normative">
-         <title>Clause 4.2</title>
-       </clause></clause>
-     
-       </sections><annex id="_" inline-header="false" obligation="normative">
-         <title>Annex</title>
-         <clause id="_" inline-header="false" obligation="normative">
-         <title>Annex A.1</title>
-       </clause>
-       </annex><bibliography><references id="_" obligation="informative">
-         <title>Normative References</title>
-         <p>There are no normative references in this document.</p>
-       </references><clause id="_" obligation="informative">
-         <title>Bibliography</title>
-         <references id="_" obligation="informative">
-         <title>Bibliography Subsection</title>
-       </references>
-       </clause>
-       </bibliography>
-       </standard-document>
+             #{BLANK_HDR.sub(/<status>/, "<abstract> <p id='_'>Text</p> </abstract><status>")}
+      <preface>
+    <abstract id='_'>
+      <p id='_'>Text</p>
+    </abstract>
+    <foreword obligation='informative'>
+      <title>Foreword</title>
+      <p id='_'>Text</p>
+    </foreword>
+    <introduction id='_' obligation='informative'>
+      <title>Introduction</title>
+      <clause id='_' inline-header='false' obligation='informative'>
+        <title>Introduction Subsection</title>
+      </clause>
+    </introduction>
+  </preface>
+  <sections>
+    <terms id='_' obligation='normative'>
+      <title>Terms and definitions</title>
+      <p>For the purposes of this document, the following terms and definitions apply.</p>
+      <term id='_'>
+        <preferred>Term1</preferred>
+      </term>
+    </terms>
+    <clause id='_' obligation='normative'>
+      <title>Terms and definitions</title>
+      <terms id='_' obligation='normative'>
+        <title>Normal Terms</title>
+        <term id='_'>
+          <preferred>Term2</preferred>
+        </term>
+      </terms>
+      <definitions id='_'>
+        <title>Σύμβολα και Συντομογραφίες</title>
+      </definitions>
+    </clause>
+    <definitions id='_'>
+      <title>Σύμβολα και Συντομογραφίες</title>
+    </definitions>
+    <clause id='_' inline-header='false' obligation='normative'>
+      <title>Clause 4</title>
+      <clause id='_' inline-header='false' obligation='normative'>
+        <title>Introduction</title>
+      </clause>
+      <clause id='_' inline-header='false' obligation='normative'>
+        <title>Clause 4.2</title>
+      </clause>
+    </clause>
+  </sections>
+  <annex id='_' inline-header='false' obligation='normative'>
+    <title>Annex</title>
+    <clause id='_' inline-header='false' obligation='normative'>
+      <title>Annex A.1</title>
+    </clause>
+  </annex>
+  <bibliography>
+    <references id='_' obligation='informative'>
+      <title>Normative References</title>
+      <p>There are no normative references in this document.</p>
+    </references>
+    <clause id='_' obligation='informative'>
+      <title>Bibliography</title>
+      <references id='_' obligation='informative'>
+        <title>Bibliography Subsection</title>
+      </references>
+    </clause>
+  </bibliography>
+</standard-document>
     OUTPUT
   end
 
   it "processes section obligations" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       [obligation=informative]
       == Clause 1
@@ -493,7 +511,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
     it "processes inline headers" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       == Clause 1
 
@@ -524,7 +542,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
   it "processes blank headers" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
       == Clause 1
 
@@ -544,7 +562,7 @@ RSpec.describe Asciidoctor::Standoc do
   end
 
       it "processes terms & definitions with external source" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       Foreword
@@ -574,7 +592,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
           it "processes empty terms & definitions" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       Foreword
@@ -598,7 +616,7 @@ RSpec.describe Asciidoctor::Standoc do
 
 
     it "processes empty terms & definitions with external source" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       #{ASCIIDOC_BLANK_HDR}
 
       Foreword
@@ -626,7 +644,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
         it "processes term document sources in French" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       = Document title
       Author
       :docfile: test.adoc
@@ -659,7 +677,7 @@ RSpec.describe Asciidoctor::Standoc do
     end
 
                it "processes term document sources in Chinese" do
-     expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+     expect(xmlpp(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :standoc, header_footer: true)))).to be_equivalent_to xmlpp(<<~"OUTPUT")
       = Document title
       Author
       :docfile: test.adoc