tests/testthat/test-fbind.R

context("binding factors")

test_that("fbind() binds factors", {

  x <- factor(c("a","b"))
  y <- factor(c("c","d"))
  z <- factor(c("a","b","c","d"))

  expect_identical(fbind(x,y),z)

})
hlendway/foofactors documentation built on May 7, 2019, 8:22 a.m.