tests/testthat/test-pystr_lstrip.R

In nicolewhite/pystr: Python String Methods in R

library(pystr)
context("pystr_lstrip")

test_that("it strips spaces by default", {
  expect_equal(pystr_lstrip("  spacious  "), "spacious  ")
})

test_that("it strips characters until it encounters one not in chars", {
  expect_equal(pystr_lstrip("www.example.com", "w."), "example.com")
})

test_that("it works with a character vector", {
  expect_equal(pystr_lstrip(c("  spacious  ", "  hi  ")), c("spacious  ", "hi  "))
})