tests/testthat/test-pystr_ljust.R

In nicolewhite/pystr: Python String Methods in R

library(pystr)
context("pystr_ljust")

test_that("it uses spaces by default", {
  expect_equal(pystr_ljust("hello", 7), "hello  ")
})

test_that("it allows you to pass a fillchar", {
  expect_equal(pystr_ljust("hello", 7, "*"), "hello**")
})

test_that("it works with a character vector", {
  expect_equal(pystr_ljust(c("hello", "hi"), 7, "*"), c("hello**", "hi*****"))
})