tests/test_files/block_10_HorizontalRule.R

context("HorizontalRule")

test_that("HorizontalRule", {

	block <- HorizontalRule()

    ## Test Str with Plain
    x <- pandocfilters:::test(list(block))
    expect_that(x, equals("<hr />"))
    

} )

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.