tests/testthat/test_Identity.R

context("Identity")

test_that("Identity of the identity", {
	id <- function(x) x
	i <- Identity$new(value = 3)

	expect_equal( i$map(id), i)

})
andreamelloncelli/funR6 documentation built on May 22, 2019, 11:50 p.m.