tests/testthat/test_aae.R

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

test_that("Test suite aae.R; orbit()",{

    expect_true(all(unlist(orbit(id,1:3)) == 1:3))

    a1 <- orbit(as.cycle(c("(123)","(23)","(1234567)","(234567)","(13)(45)(67)(89)")),1)
    a2 <- list(c(1,2,3),1,c(1,2,3,4,5,6,7),1,c(1,3))
    expect_true(identical(a1,a2))

    expect_true(all(sapply(1:9,function(i){i %in% orbit(as.cycle("(45)(126)"),1:9)[[i]]})))
    expect_true(all(sapply(1:9,function(i){i %in% orbit(as.cycle("(45)"),1:9)[[i]]})))
                
    checker1 <- function(a,n){
            expect_true(all(unlist(lapply(orbit(a,n),function(x){n %in% x}))))
    }

    includes_id <- as.cycle(c("","(123)",""))
    for(i in 1:5){checker1(includes_id,i)}

    for(i in 1:2){
        for(n in 1:9){
            checker1(rperm(),n)
        }
    }
} )