tests/testthat/test-dual.R

In stla/syt: Young Tableaux

test_that("dual syt", {
  syt <- list(c(1,2,6), c(3,5), 4)
  dsyt <- dualsyt(syt)
  expect_identical(dsyt, list(c(1L,3L,4L), c(2L,5L), 6L))
})

test_that("dual tableau", {
  tbl <- list(c(1,2,6), c(3,5), 4)
  dtbl <- dualTableau(tbl)
  expect_identical(dtbl, list(c(1,3,4), c(2,5), 6))
})