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