tests/test_files/inline_12_SoftBreak.R

In pandocfilters: Pandoc Filters for R

context("SoftBreak")

test_that("SoftBreak", {

    if ( pandocfilters:::get_pandoc_version() > 1.15 ) {

        y <- "<h1> </h1>"
        inline <- SoftBreak()

        ## Test SoftBreak with Header
        x <- pandocfilters:::test(list(Header(list(inline))))
        expect_that(x, equals(y))

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

        y <- " "
        ## Test SoftBreak with Plain
        x <- pandocfilters:::test(list(Plain(list(inline))))
        expect_that(x, equals(y))

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

    }

} )