test_that("closure(reduce(random()))==closure",{ random_tally(10,0.3)->a arrange(a)->a as.matrix(a,reduction=FALSE,closure=FALSE)->a reduce(a)->ra closure(a)->ca expect_identical(ca,closure(ra)) })