tests/testthat/test-matter-factor.R

In kuwisdelu/matter: Scientific computing for out-of-memory signals and arrays

require(testthat)
require(matter)

context("matter-factor")

test_that("matter factor", {

	x <- factor(c("A", "A", "B", "B", "A", "C", "A"))
	y <- matter_fct(x)

	expect_equal(x, y[])
	expect_equal(x, as.factor(y))
	expect_equal(x[1], y[1])
	expect_equal(x[1:7], y[1:7])
	expect_equal(x[7:1], y[7:1])

	z <- y[1:5,drop=NULL]

	expect_is(z, "matter_fct")
	expect_equal(x[1:5], z[])

	x[c(1,7)] <- "C"
	y[c(1,7)] <- "C"

	expect_equal(x, y[])
	expect_equal(x, as.factor(y))
	expect_equal(x[1], y[1])
	expect_equal(x[1:7], y[1:7])
	expect_equal(x[7:1], y[7:1])

	expect_equal(c(x, x), c(y, y)[])

})