tests/test_files/block_02_Para.R

In pandocfilters: Pandoc Filters for R

context("Para")

test_that("Para", {

    ## Test Str with Para
    x <- pandocfilters:::test(list(Para(list(Str("Hello R!")))))
    expect_that(x, equals("<p>Hello R!</p>"))
    x <- pandocfilters:::test(list(Para(Str("Hello R!"))))
    expect_that(x, equals("<p>Hello R!</p>"))

} )