tests/testthat/test_aad.R

In RobinHankin/permutations: The Symmetric Group: Permutations of a Finite Set

test_that("Test suite aad.R",{

    options("print_word_as_cycle" = FALSE)
    expect_output(print(rperm(3,4)))
    expect_output(print(id))
    expect_output(print(as.word(id)))
    expect_output(print(rperm(1,100)))
    expect_output(print(nullcycle))

    options("print_word_as_cycle" = TRUE)
    expect_output(print(rperm(3,4)))
    expect_output(print(id))
    expect_output(print(as.word(id)))
    expect_output(print(rperm(1,100)))
    expect_output(print(nullcycle))

})