tests/test_files/inline_13_LineBreak.R

In pandocfilters: Pandoc Filters for R

context("LineBreak")

test_that("LineBreak", {

    ## FIX an api difference between pandoc 1.16 and lower
    j <- function(...) paste(..., collapse = "\n")
    
    y <- j(c("<h1><br />", "</h1>"))
    inline <- LineBreak()

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

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

    y <- j("<br />")
    ## Test LineBreak with Plain
    x <- j(pandocfilters:::test(list(Plain(list(inline)))))
    expect_that(trimws(x), equals(y))

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

} )