tests/test_files/block_05_BlockQuote.R

context("BlockQuote")

test_that("BlockQuote", {

    y <- paste("<blockquote>", "Hello R!", "</blockquote>", sep = "\n")

    block <- BlockQuote(list(Plain(list(Str("Hello R!")))))

    x <- pandocfilters:::test(list(block))
    expect_that(x, equals(y))

} )

Try the pandocfilters package in your browser

Any scripts or data that you put into this service are public.

pandocfilters documentation built on Aug. 12, 2022, 1:05 a.m.