packrat/lib/x86_64-pc-linux-gnu/3.2.3/stringr/tests/testthat/test-pad.r

In etsakl/DasyMapR: Geographical ETRS-LAEA Grid Based Dasymetric Mapping

context("Test padding")

test_that("long strings are unchanged", {
  lengths <- sample(40:100, 10)
  strings <- vapply(lengths, function(x)
    str_c(letters[sample(26, x, rep = T)], collapse = ""),
    character(1))

  padded <- str_pad(strings, width = 30)
  expect_that(str_length(padded), equals(str_length(padded)))
})

test_that("directions work for simple case", {

  pad <- function(direction) str_pad("had", direction, width = 10)

  expect_that(pad("right"),  equals("had       "))
  expect_that(pad("left"),   equals("       had"))
  expect_that(pad("both"),   equals("   had    "))
})