asciidoc-0.1: test/asciidoctor/section/level4.test

===== Section Level 4
>>>
Document
  { docMeta =
      Meta
        { docTitle = []
        , docTitleAttributes = Nothing
        , docAuthors = []
        , docRevision = Nothing
        , docAttributes = fromList [ ( "sectids" , "" ) ]
        }
  , docBlocks =
      [ Block
          Attr
          ( [] , fromList [ ( "id" , "_section_level_4" ) ] )
          Nothing
          (Section (Level 1) [ Inline mempty (Str "Section Level 4") ] [])
      ]
  }