tests/testthat/test-count_trailing_spaces.R

context("count_trailing_spaces")

test_that("use", {

  expect_equal(count_trailing_spaces("x"), 0)
  expect_equal(count_trailing_spaces(" y"), 1)
  expect_equal(count_trailing_spaces("  <"), 2)
  expect_equal(count_trailing_spaces(""), 0)
  expect_equal(count_trailing_spaces(" "), 1)
  expect_equal(count_trailing_spaces("  "), 2)

})
richelbilderbeek/beastscriptr documentation built on July 10, 2024, 8:07 p.m.