asciidoc-0.1: test/asciidoctor/admonition/caution-with-id-and-role.test

[#caution-1.red]
CAUTION: This is a caution with id and role.
>>>
Document
  { docMeta =
      Meta
        { docTitle = []
        , docTitleAttributes = Nothing
        , docAuthors = []
        , docRevision = Nothing
        , docAttributes = fromList [ ( "sectids" , "" ) ]
        }
  , docBlocks =
      [ Block
          Attr
          ( [] , fromList [ ( "id" , "caution-1" ) , ( "role" , "red" ) ] )
          Nothing
          (Admonition
             Caution
             [ Block
                 mempty
                 Nothing
                 (Paragraph
                    [ Inline mempty (Str "This is a caution with id and role.") ])
             ])
      ]
  }