tests/testthat/test-fbind.R

In iqis/foofactors: Makes Factors Foo Again

context("test-fbind")

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)
})