asciidoc-0.1: test/asciidoctor/video/with-title.test

.Must watch!
video::video_file.mp4[]
>>>
Document
  { docMeta =
      Meta
        { docTitle = []
        , docTitleAttributes = Nothing
        , docAuthors = []
        , docRevision = Nothing
        , docAttributes = fromList [ ( "sectids" , "" ) ]
        }
  , docBlocks =
      [ Block
          mempty
          (Just (BlockTitle [ Inline mempty (Str "Must watch!") ]))
          (BlockVideo (Target "video_file.mp4"))
      ]
  }