asciidoctor-iso 0.6.1 → 0.7.0

data/lib/asciidoctor/iso/validate_style.rb

@@ -5,168 +5,121 @@ require "pp"
 module Asciidoctor
   module ISO
     module Validate
-      REQUIREMENT_RE_STR = <<~REGEXP.freeze
-        \\b
-         ( shall | (is|are)_to |
-           (is|are)_required_(not_)?to |
-           has_to |
-           only\\b[^.,]+\\b(is|are)_permitted |
-           it_is_necessary |
-           (needs|need)_to |
-           (is|are)_not_(allowed | permitted |
-                         acceptable | permissible) |
-           (is|are)_not_to_be |
-           (need|needs)_not |
-           do_not )
-        \\b
-      REGEXP
-      REQUIREMENT_RE =
-        Regexp.new(REQUIREMENT_RE_STR.gsub(/\s/, "").gsub(/_/, "\\s"),
-                   Regexp::IGNORECASE)
-
-      def requirement(text)
-        text.split(/\.\s+/).each do |t|
-          return t if REQUIREMENT_RE.match? t
-        end
-        nil
-      end
-
-      RECOMMENDATION_RE_STR = <<~REGEXP.freeze
-        \\b
-            should |
-            ought_(not_)?to |
-            it_is_(not_)?recommended_that
-        \\b
-      REGEXP
-      RECOMMENDATION_RE =
-        Regexp.new(RECOMMENDATION_RE_STR.gsub(/\s/, "").gsub(/_/, "\\s"),
-                   Regexp::IGNORECASE)
-
-      def recommendation(text)
-        text.split(/\.\s+/).each do |t|
-          return t if RECOMMENDATION_RE.match? t
-        end
-        nil
-      end
-
-      PERMISSION_RE_STR = <<~REGEXP.freeze
-        \\b
-             may |
-            (is|are)_(permitted | allowed | permissible ) |
-            it_is_not_required_that |
-            no\\b[^.,]+\\b(is|are)_required
-        \\b
-      REGEXP
-      PERMISSION_RE =
-        Regexp.new(PERMISSION_RE_STR.gsub(/\s/, "").gsub(/_/, "\\s"),
-                   Regexp::IGNORECASE)
-
-      def permission(text)
-        text.split(/\.\s+/).each do |t|
-          return t if PERMISSION_RE.match? t
-        end
-        nil
-      end
-
-      POSSIBILITY_RE_STR = <<~REGEXP.freeze
-        \\b
-           can | cannot | be_able_to |
-           there_is_a_possibility_of |
-           it_is_possible_to | be_unable_to |
-           there_is_no_possibility_of |
-           it_is_not_possible_to
-        \\b
-      REGEXP
-      POSSIBILITY_RE =
-        Regexp.new(POSSIBILITY_RE_STR.gsub(/\s/, "").gsub(/_/, "\\s"),
-                   Regexp::IGNORECASE)
-
-      def posssibility(text)
-        text.split(/\.\s+/).each do |t|
-          return t if POSSIBILITY_RE.match? t
-        end
-        nil
-      end
-
-      def external_constraint(text)
-        text.split(/\.\s+/).each do |t|
-          return t if /\b(must)\b/xi.match? t
-        end
-        nil
-      end
-
-      def style_no_guidance(node, text, docpart)
-        r = requirement(text)
-        style_warning(node, "#{docpart} may contain requirement", r) if r
-        r = permission(text)
-        style_warning(node, "#{docpart} may contain permission", r) if r
-        r = recommendation(text)
-        style_warning(node, "#{docpart} may contain recommendation", r) if r
-      end
-
       def foreword_style(node, text)
+        return if @novalid
         style_no_guidance(node, text, "Foreword")
       end
 
       def scope_style(node, text)
+        return if @novalid
         style_no_guidance(node, text, "Scope")
       end
 
       def introduction_style(node, text)
+        return if @novalid
         r = requirement(text)
         style_warning(node, "Introduction may contain requirement", r) if r
       end
 
       def termexample_style(node, text)
+        return if @novalid
         style_no_guidance(node, text, "Term Example")
         style(node, text)
       end
 
       def note_style(node, text)
+        return if @novalid
         style_no_guidance(node, text, "Note")
         style(node, text)
       end
 
       def footnote_style(node, text)
+        return if @novalid
         style_no_guidance(node, text, "Footnote")
         style(node, text)
       end
 
       def style_warning(node, msg, text)
+        return if @novalid
         w = "ISO style: WARNING (#{Utils::current_location(node)}): #{msg}"
         w += ": #{text}" if text
         warn w
       end
 
-      # style check with a single regex
-      def style_single_regex(n, text, re, warning)
-        m = re.match(text) and style_warning(n, warning, m[:num])
+      def style_regex(re, warning, n, text)
+        (m = re.match(text)) && style_warning(n, warning, m[:num])
       end
 
       # style check with a regex on a token
       # and a negative match on its preceding token
       def style_two_regex_not_prev(n, text, re, re_prev, warning)
         return if text.nil?
-        words = text.split(/\W+/).each_index do |i|
-          next if i.zero?
-          m = re.match text[i]
-          m_prev = re_prev.match text[i - 1]
+        arr = text.split(/\W+/)
+        arr.each_index do |i|
+          m = re.match arr[i]
+          m_prev = i.zero? ? nil : re_prev.match(arr[i - 1])
           if !m.nil? && m_prev.nil?
             style_warning(n, warning, m[:num])
           end
         end
       end
 
-      def style(n, text)
-        style_single_regex(n, text, /\b(?<num>[0-9]+\.[0-9]+)\b/,
-                           "possible decimal point")
-        style_two_regex_not_prev(n, text, /^(?<num>[0-9]{4,})$/,
-                                 %r{(\bISO|\bIEC|\bIEEE|/)$},
+      def style(n, t)
+        return if @novalid
+        style_number(n, t)
+        style_percent(n, t)
+        style_abbrev(n, t)
+        style_units(n, t)
+      end
+
+      def style_number(n, t)
+        style_two_regex_not_prev(n, t, /^(?<num>-?[0-9]{4,}[,0-9]*)$/,
+                                 %r{(\bISO|\bIEC|\bIEEE/)$},
                                  "number not broken up in threes")
-        style_single_regex(n, text, /\b(?<num>[0-9.,]+%)/,
-                           "no space before percent sign")
-        style_single_regex(n, text, /\b(?<num>[0-9.,]+ \u00b1 [0-9,.]+ %)/,
-                           "unbracketed tolerance before percent sign")
+        style_regex(/\b(?<num>[0-9]+\.[0-9]+)/i,
+                    "possible decimal point", n, t)
+        style_regex(/\b(?<num>billion[s]?)\b/i,
+                    "ambiguous number", n, t)
+      end
+
+      def style_percent(n, t)
+        style_regex(/\b(?<num>[0-9.,]+%)/,
+                    "no space before percent sign", n, t)
+        style_regex(/\b(?<num>[0-9.,]+ \u00b1 [0-9,.]+ %)/,
+                    "unbracketed tolerance before percent sign", n, t)
+      end
+
+      def style_abbrev(n, t)
+        style_regex(/(^|\s)(?!e\.g\.|i\.e\.)
+                    (?<num>[a-z]{1,2}\.([a-z]{1,2}|\.))\b/ix,
+                      "no dots in abbreviations", n, t)
+        style_regex(/\b(?<num>ppm)\b/i,
+                    "language-specific abbreviation", n, t)
+      end
+
+      # leaving out as problematic: N J K C S T H h d B o E
+      SI_UNIT = "(m|cm|mm|km|μm|nm|g|kg|mgmol|cd|rad|sr|Hz|Hz|MHz|Pa|hPa|kJ|"\
+        "V|kV|W|MW|kW|F|μF|Ω|Wb|°C|lm|lx|Bq|Gy|Sv|kat|l|t|eV|u|Np|Bd|"\
+        "bit|kB|MB|Hart|nat|Sh|var)".freeze
+
+      def style_units(n, t)
+        style_regex(/\b(?<num>[0-9][0-9,]*\s+[\u00b0\u2032\u2033])/,
+                    "space between number and degrees/minutes/seconds", n, t)
+        style_regex(/\b(?<num>[0-9][0-9,]*#{SI_UNIT})\b/,
+                    "no space between number and SI unit", n, t)
+        style_non_std_units(n, t)
+      end
+
+      NONSTD_UNITS = {
+        "sec": "s", "mins": "min", "hrs": "h", "hr": "h", "cc": "cm^3",
+        "lit": "l", "amp": "A", "amps": "A", "rpm": "r/min"
+      }.freeze
+
+      def style_non_std_units(n, t)
+        NONSTD_UNITS.each do |k, v|
+          style_regex(/\b(?<num>[0-9][0-9,]*\s+#{k})\b/,
+                      "non-standard unit (should be #{v})", n, t)
+        end
       end
     end
   end

data/lib/asciidoctor/iso/version.rb

@@ -1,5 +1,5 @@
 module Asciidoctor
   module ISO
-    VERSION = "0.6.1".freeze
+    VERSION = "0.7.0".freeze
   end
 end

data/spec/asciidoctor-iso/base_spec.rb

@@ -0,0 +1,193 @@
+require "spec_helper"
+
+RSpec.describe Asciidoctor::ISO do
+  it "has a version number" do
+    expect(Asciidoctor::ISO::VERSION).not_to be nil
+  end
+
+  it "generates output for the Rice document" do
+    system "cd spec/examples; rm -f rice.doc; rm -f rice.html; asciidoctor --trace -b iso -r 'asciidoctor-iso' rice.adoc; cd ../.."
+    expect(File.exist?("spec/examples/rice.doc")).to be true
+    expect(File.exist?("spec/examples/rice.html")).to be true
+  end
+
+  it "processes a blank document" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~"OUTPUT"
+    #{ASCIIDOC_BLANK_HDR}
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+  end
+
+  it "converts a blank document" do
+    system "rm -f test.doc"
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+    expect(File.exist?("test.doc")).to be true
+  end
+
+
+  it "processes default metadata" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~'OUTPUT'
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :docnumber: 1000
+      :partnumber: 1
+      :edition: 2
+      :revdate: 2000-01-01
+      :draft: 3.4
+      :technical-committee: TC
+      :technical-committee-number: 1
+      :technical-committee-type: A
+      :subcommittee: SC
+      :subcommittee-number: 2
+      :subcommittee-type: B
+      :workgroup: WG
+      :workgroup-number: 3
+      :workgroup-type: C
+      :secretariat: SECRETARIAT
+      :copyright-year: 2001
+      :docstage: 10
+      :docsubstage: 20
+      :language: en
+      :title-intro-en: Introduction
+      :title-main-en: Main Title
+      :title-part-en: Title Part
+      :title-intro-fr: Introduction Française
+      :title-main-fr: Titre Principal
+      :title-part-fr: Part du Titre
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="article">
+         <title>
+           <title-intro language="en" format="text/plain">Introduction</title-intro>
+           <title-main language="en" format="text/plain">Main Title</title-main>
+           <title-part language="en" format="text/plain">Title Part</title-part>
+         </title>
+         <title>
+           <title-intro language="fr" format="text/plain">Introduction Française</title-intro>
+           <title-main language="fr" format="text/plain">Titre Principal</title-main>
+           <title-part language="fr" format="text/plain">Part du Titre</title-part>
+         </title>
+         <docidentifier>
+           <project-number part="1">1000</project-number>
+         </docidentifier>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
+         <language>en</language>
+         <script>Latn</script>
+         <status>
+           <stage>10</stage>
+           <substage>20</substage>
+         </status>
+         <copyright>
+           <from>2001</from>
+           <owner>
+             <organization>
+               <name>ISO</name>
+             </organization>
+           </owner>
+         </copyright>
+         <editorialgroup>
+           <technical-committee number="1" type="A">TC</technical-committee>
+           <subcommittee number="2" type="B">SC</subcommittee>
+           <workgroup number="3" type="C">WG</workgroup>
+           <secretariat>SECRETARIAT</secretariat>
+         </editorialgroup>
+       </bibdata><version>
+         <edition>2</edition>
+         <revision-date>2000-01-01</revision-date>
+         <draft>3.4</draft>
+       </version>
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+
+  it "processes complex metadata" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~'OUTPUT'
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :docnumber: 1000
+      :partnumber: 1-1
+      :tc-docnumber: 2000
+      :language: el
+      :script: Grek
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="article">
+         <title>
+         </title>
+         <title>
+         </title>
+         <docidentifier>
+           <project-number part="1" subpart="1">1000</project-number>
+           <tc-document-number>2000</tc-document-number>
+         </docidentifier>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>ISO</name>
+           </organization>
+         </contributor>
+         <language>el</language>
+         <script>Grek</script>
+         <status>
+           <stage>60</stage>
+           <substage>60</substage>
+         </status>
+         <copyright>
+           <from>2018</from>
+           <owner>
+             <organization>
+               <name>ISO</name>
+             </organization>
+           </owner>
+         </copyright>
+         <editorialgroup>
+           <technical-committee/>
+           <subcommittee/>
+           <workgroup/>
+         </editorialgroup>
+       </bibdata>
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+end

data/spec/asciidoctor-iso/blocks_spec.rb

@@ -0,0 +1,426 @@
+require "spec_helper"
+
+RSpec.describe Asciidoctor::ISO do
+  it "processes open blocks" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      --
+      x
+
+      y
+
+      z
+      --
+    INPUT
+        #{BLANK_HDR}
+       <sections><p id="_">x</p>
+       <p id="_">y</p>
+       <p id="_">z</p></sections>
+       </iso-standard>
+    OUTPUT
+  end
+
+  it "processes stem blocks" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [stem]
+      ++++
+      r = 1 % 
+      r = 1 % 
+      ++++
+    INPUT
+            #{BLANK_HDR}
+       <sections>
+         <formula id="_">
+         <stem type="AsciiMath">r = 1 %
+       r = 1 %</stem>
+       </formula>
+       </sections>
+       </iso-standard>
+    OUTPUT
+  end
+
+    it "ignores review blocks unless document is in draft mode" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [[foreword]]
+      .Foreword
+      Foreword
+
+      [reviewer=ISO,date=20170101,from=foreword,to=foreword]
+      ****
+      A Foreword shall appear in each document. The generic text is shown here. It does not contain requirements, recommendations or permissions.
+
+      For further information on the Foreword, see *ISO/IEC Directives, Part 2, 2016, Clause 12.*
+      ****
+      INPUT
+              #{BLANK_HDR}
+       <sections><p id="foreword">Foreword</p>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+  it "processes review blocks if document is in draft mode" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :draft: 1.2
+
+      [[foreword]]
+      .Foreword
+      Foreword
+
+      [reviewer=ISO,date=20170101,from=foreword,to=foreword]
+      ****
+      A Foreword shall appear in each document. The generic text is shown here. It does not contain requirements, recommendations or permissions.
+
+      For further information on the Foreword, see *ISO/IEC Directives, Part 2, 2016, Clause 12.*
+      ****
+      INPUT
+              #{BLANK_HDR}
+       <version>
+         <draft>1.2</draft>
+       </version>
+       <sections><p id="foreword">Foreword</p>
+       <review reviewer="ISO" id="_" date="20170101T0000" from="foreword" to="foreword"><p id="_">A Foreword shall appear in each document. The generic text is shown here. It does not contain requirements, recommendations or permissions.</p>
+       <p id="_">For further information on the Foreword, see <strong>ISO/IEC Directives, Part 2, 2016, Clause 12.</strong></p></review></sections>
+       </iso-standard>
+
+      OUTPUT
+  end
+
+  it "processes term notes" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      == Terms and Definitions
+
+      === Term1
+
+      NOTE: This is a note
+      INPUT
+              #{BLANK_HDR}
+       <sections>
+         <terms id="_" obligation="normative">
+         <title>Terms and Definitions</title>
+         <term id="_">
+         <preferred>Term1</preferred>
+         <termnote id="_">
+         <p id="_">This is a note</p>
+       </termnote>
+       </term>
+       </terms>
+       </sections>
+       </iso-standard>
+      OUTPUT
+  end
+
+    it "processes notes" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      NOTE: This is a note
+      INPUT
+              #{BLANK_HDR}
+       <sections>
+         <note id="_">
+         <p id="_">This is a note</p>
+       </note>
+       </sections>
+       </iso-standard>
+
+      OUTPUT
+  end
+
+  it "processes simple admonitions with Asciidoc names" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+        #{ASCIIDOC_BLANK_HDR}
+        CAUTION: Only use paddy or parboiled rice for the determination of husked rice yield.
+      INPUT
+              #{BLANK_HDR}
+       <sections>
+         <admonition id="_" type="caution">
+         <p id="_">Only use paddy or parboiled rice for the determination of husked rice yield.</p>
+       </admonition>
+       </sections>
+       </iso-standard>
+
+      OUTPUT
+  end
+
+
+  it "processes complex admonitions with non-Asciidoc names" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [CAUTION,type=Safety Precautions]
+      .Safety Precautions
+      ====
+      While werewolves are hardy community members, keep in mind the following dietary concerns:
+
+      . They are allergic to cinnamon.
+      . More than two glasses of orange juice in 24 hours makes them howl in harmony with alarms and sirens.
+      . Celery makes them sad.
+      ====
+      INPUT
+      #{BLANK_HDR}
+      <sections>
+         <admonition id="_" type="safety precautions"><p id="_">While werewolves are hardy community members, keep in mind the following dietary concerns:</p>
+       <ol id="_" type="arabic">
+         <li>
+           <p id="_">They are allergic to cinnamon.</p>
+         </li>
+         <li>
+           <p id="_">More than two glasses of orange juice in 24 hours makes them howl in harmony with alarms and sirens.</p>
+         </li>
+         <li>
+           <p id="_">Celery makes them sad.</p>
+         </li>
+       </ol></admonition>
+       </sections>
+       </iso-standard>
+
+      OUTPUT
+  end
+
+  it "processes term examples" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      == Terms and Definitions
+
+      === Term1
+
+      [example]
+      This is an example
+      INPUT
+              #{BLANK_HDR}
+              <sections>
+         <terms id="_" obligation="normative">
+         <title>Terms and Definitions</title>
+         <term id="_">
+         <preferred>Term1</preferred>
+         <termexample id="_">
+         <p id="_">This is an example</p>
+       </termexample>
+       </term>
+       </terms>
+       </sections>
+       </iso-standard>
+
+      OUTPUT
+  end
+
+    it "processes examples" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [example]
+      ====
+      This is an example
+
+      Amen
+      ====
+      INPUT
+              #{BLANK_HDR}
+       <sections>
+         <example id="_"><p id="_">This is an example</p>
+       <p id="_">Amen</p></example>
+       </sections>
+       </iso-standard>
+      OUTPUT
+  end
+
+    it "processes preambles" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      This is a preamble
+
+      == Section 1
+      INPUT
+       #{BLANK_HDR}
+             <foreword obligation="informative">
+         <title>Foreword</title>
+         <p id="_">This is a preamble</p>
+       </foreword><sections>
+       <clause id="_" inline-header="false" obligation="normative">
+         <title>Section 1</title>
+       </clause></sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+    it "processes images" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      .Split-it-right sample divider
+      image::spec/examples/rice_images/rice_image1.png[]
+ 
+      INPUT
+       #{BLANK_HDR}
+              <sections>
+         <figure id="_">
+         <name>Split-it-right sample divider</name>
+                  <image src="spec/examples/rice_images/rice_image1.png" id="_" imagetype="PNG"/>
+       </figure>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+   it "accepts width and height attributes on images" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [height=4,width=3]
+      image::spec/examples/rice_images/rice_image1.png[]
+
+      INPUT
+       #{BLANK_HDR}
+              <sections>
+         <figure id="_">
+         <image src="spec/examples/rice_images/rice_image1.png" id="_" imagetype="PNG" height="4" width="3"/>
+       </figure>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+   it "accepts alignment attribute on paragraphs" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [align=right]
+      This para is right-aligned.
+      INPUT
+       #{BLANK_HDR}
+      <sections>
+         <p align="right" id="_">This para is right-aligned.</p>
+       </sections>
+      </iso-standard>
+      OUTPUT
+    end
+
+    it "processes blockquotes" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [quote, ISO, "ISO7301,section 1"]
+      ____
+      Block quotation
+      ____
+      INPUT
+       #{BLANK_HDR}
+       <sections>
+         <quote id="_">
+         <source type="inline" bibitemid="ISO7301" citeas=""><locality type="section"><referenceFrom>1</referenceFrom></locality></source>
+         <author>ISO</author>
+         <p id="_">Block quotation</p>
+       </quote>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+    it "processes source code" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [source,ruby]
+      --
+      puts "Hello, world."
+      %w{a b c}.each do |x|
+        puts x
+      end
+      --
+      INPUT
+       #{BLANK_HDR}
+       <sections>
+         <sourcecode id="_">puts "Hello, world."
+       %w{a b c}.each do |x|
+         puts x
+       end</sourcecode>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+    it "processes callouts" do
+      expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      [source,ruby]
+      --
+      puts "Hello, world." <1>
+      %w{a b c}.each do |x|
+        puts x <2>
+      end
+      --
+      <1> This is one callout
+      <2> This is another callout
+      INPUT
+       #{BLANK_HDR}
+              <sections><sourcecode id="_">puts "Hello, world." <callout target="_">1</callout>
+       %w{a b c}.each do |x|
+         puts x <callout target="_">2</callout>
+       end<annotation id="_">
+         <p id="_">This is one callout</p>
+       </annotation><annotation id="_">
+         <p id="_">This is another callout</p>
+       </annotation></sourcecode>
+       </sections>
+       </iso-standard>
+      OUTPUT
+    end
+
+  it "processes unmodified term sources" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      == Terms and Definitions
+
+      === Term1
+
+      [.source]
+      <<ISO2191,section 1>>
+      INPUT
+              #{BLANK_HDR}
+       <sections>
+         <terms id="_" obligation="normative">
+         <title>Terms and Definitions</title>
+         <term id="_">
+         <preferred>Term1</preferred>
+         <termsource status="identical">
+         <origin bibitemid="ISO2191" type="inline" citeas=""><locality type="section"><referenceFrom>1</referenceFrom></locality></origin>
+       </termsource>
+       </term>
+       </terms>
+       </sections>
+       </iso-standard>
+      OUTPUT
+  end
+
+  it "processes modified term sources" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      #{ASCIIDOC_BLANK_HDR}
+      == Terms and Definitions
+
+      === Term1
+
+      [.source]
+      <<ISO2191,section 1>>, with adjustments
+      INPUT
+              #{BLANK_HDR}
+            <sections>
+         <terms id="_" obligation="normative">
+         <title>Terms and Definitions</title>
+         <term id="_">
+         <preferred>Term1</preferred>
+         <termsource status="modified">
+         <origin bibitemid="ISO2191" type="inline" citeas=""><locality type="section"><referenceFrom>1</referenceFrom></locality></origin>
+         <modification>
+           <p id="_">with adjustments</p>
+         </modification>
+       </termsource>
+       </term>
+       </terms>
+       </sections>
+       </iso-standard>
+          OUTPUT
+  end
+
+
+end