tests/testthat/test_fbind.r

In kenmansfield/foofactors:

context("Binding factors")

test_that("fbind binds factor (or character)", {
	x <- c('a', 'b')
	x_fact <- factor(x)
	y <- c('c', 'd')
	z <- factor(c('a', 'b', 'c', 'd'))

	expect_identical(fbind(x, y), z)
	expect_identical(fbind(x_fact, y), z)
})