inst/tinytest/test_trim.R

In super: Interpreted String Literals

# -------------------------------------------------------------------------
# Errors ------------------------------------------------------------------
# -------------------------------------------------------------------------
expect_error(trim(1), "`x` must be a character vector.")

# -------------------------------------------------------------------------
# Implementation ----------------------------------------------------------
# -------------------------------------------------------------------------
expect_identical("", trim(""))

expect_identical(character(), trim(character()))

expect_identical(" ", trim(" "))

expect_identical("test", trim("test"))

expect_identical(" test", trim(" test"))

expect_identical("test ", trim("test "))

expect_identical("test", trim("test"))

expect_identical(c("foo", "bar"), trim(c("foo", "bar")))

expect_identical(c("foo", "bar"), trim(c("\nfoo", "bar\n")))

expect_identical("test",
                 trim(
                     "test"))

expect_identical("test",
                 x <- trim(
                     "test
"))

expect_identical("test",
                 trim("\x20\x20\x20\x20\x20\x20
  test
  "))

expect_identical("test",
                 trim(
                     "test"))

expect_identical("test\n  test2",
                 trim("
  test
    test2
  "))

expect_identical("test\n  test2\n    test3",
                 trim("
  test
    test2
      test3
  "))

expect_identical(
    "\ntest\n",
    trim("

      test

      ")
)

# trim strips escaped newlines
expect_identical(
    "foo bar baz",
    trim("foo bar \\\nbaz"))

expect_identical(
    trim("
  foo bar \\
  baz"),
    "foo bar baz")

expect_identical(
    trim("
  foo bar \\
  baz
  "),
    "foo bar baz")

expect_identical(
    "foo bar baz\n",
    trim("foo bar baz\n\n"))

expect_identical(
    "\nfoo bar baz",
    trim("\n\nfoo bar baz"))


# issue #44 from original glue
expect_identical(
    trim("12345678
        foo
       bar
      baz
       bar
        baz"),
    "12345678\n  foo\n bar\nbaz\n bar\n  baz")


# issue #47 from original glue

expect_identical(
    trim("
      Hello,
      World.
    "),
    "  Hello,\n  World."
)

expect_identical(
    trim("
  foo
          bar
    123456789"),
    "foo\n        bar\n  123456789"
)

expected <- "The stuff before the bullet list\n  * one bullet"

expect_identical(
    trim("The stuff before the bullet list
        * one bullet
      "), expected)

expect_identical(
    trim("
  The stuff before the bullet list
    * one bullet"), expected)

expect_identical(
    trim("
     The stuff before the bullet list
       * one bullet
     "), expected)


# lines containing only indentation are handled properly
# Notes from original glue repo:
#    "Tabs and spaces are considered indentation. The following examples look
#     funny because I'm using a tab escape as the last indentation character to
#     prevent RStudio from removing trailing whitespace on save."
expect_identical(
    trim("
     \ta
     \tb
     \t
     \tc"),
    "a\nb\n\nc"
)
expect_identical(
    trim("
     \ta
   \tb
     \t
     \tc"),
    " \ta\nb\n \t\n \tc"
)
# A line shorter than min_indent that contains only indentation should not be
# trimmed, removed, or prepended to the next line.
expect_identical(
    trim("
       \ta
       \tb
      \t
       \tc"),
    "a\nb\n      \t\nc"
)
# Ensure empty intermedite lines are handled properly
expect_identical(
    trim("
       \ta
       \tb

       \tc"),
    "a\nb\n\nc"
)


# https://github.com/tidyverse/glue/issues/238
# indent counter resets at newline"
# whitespace-only line has 1 space < min_indent (which is 2)
# comment in trim_() says:
# "if the line consists only of tabs and spaces, and if the line is
#  shorter than min_indent, copy the entire line"
expect_identical(trim("\n \n  abcd"), " \nabcd")

# whitespace-only line has n spaces, n >= min_indent
expect_identical( trim("\n  \n  abcd"),  "\nabcd")
expect_identical(trim("\n   \n  abcd"), " \nabcd")


# https://github.com/tidyverse/glue/issues/247
# trailing whitespace-only line doesn't goof up indentation
expect_identical(trim("\n  A\n\n"), "A\n")
# comment in trim_() says:
# "if the line consists only of tabs and spaces, and if the line is
#  shorter than min_indent, copy the entire line"
expect_identical(trim("\n  A\n \n"), "A\n ")
expect_identical(trim("\n  A\n  \n"), "A\n")
expect_identical(trim("\n  A\n   \n"), "A\n ")