tests/test-cran/test-addin.R

In blogdown: Create Blogs and Websites with R Markdown

assert('quote_poem() adds > to the beginning of every line, and two trailing spaces to every line', {

  (quote_poem("               ")  %==% "               ")

  (quote_poem("some text.") %==% '> some text.')

  (quote_poem("some text.\nsome more text.\neven more text.")) %==%
    "> some text.  \n> some more text.  \n> even more text."

  (quote_poem("some text.    \nsome more text.     \neven more text.")) %==%
    "> some text.  \n> some more text.  \n> even more text."

  (quote_poem("some text.    \nsome more text.     \n\neven more text.")) %==%
    "> some text.  \n> some more text.\n>\n> even more text."

})