File: test-join.r

package info (click to toggle)
r-cran-stringr 0.6.0-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 304 kB
  • sloc: makefile: 3
file content (20 lines) | stat: -rw-r--r-- 500 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
context("Joining strings")

test_that("basic case works", {
  test <- c("a", "b", "c")
  
  expect_that(str_c(test), equals(test))
  expect_that(str_c(test, sep = " "), equals(test))
  expect_that(str_c(test, collapse = ""), equals("abc"))
})

test_that("zero length vectors dropped", {
  test <- letters[1:3]
  
  expect_that(str_c(test, c()), equals(test))
  expect_that(str_c(test, NULL), equals(test))

  expect_that(
    str_c(test, NULL, "a", sep = " "), 
    equals(c("a a", "b a", "c a")))
})