tests/testthat/test-rjust.R

In strs: 'Python' Style String Functions

test_that("strs_rstrip works for chars = NULL", {
  expect_equal(strs_rstrip("     test     "), "     test")
  expect_equal(strs_rstrip("test     "), "test")
  expect_equal(strs_rstrip("     test"), "     test")
  expect_equal(strs_rstrip("rmftestrmf", c("r", "m", "f")), "rmftest")
  expect_equal(strs_rstrip("rmftestrmf", "rmf"), "rmftest")
})