inst/tests/test-string.R

context("String")


test_that("%.% results", {
  expect_that("a"%.%"b", equals("ab"))
  expect_that("a:"%.%1, equals("a:1"))
  expect_that("a:"%.%1:2, equals(c("a:1", "a:2")))
  expect_that(letters[1:2]%.%1:2, equals(c("a1", "b2")))
})

Try the pvar package in your browser

Any scripts or data that you put into this service are public.

pvar documentation built on Oct. 18, 2022, 9:09 a.m.