library("testthat") library("permute") context("Testing get methods") test_that("default methods for get functions", { v <- 1:10 expect_error(getBlocks(v), regexp = "No default method") expect_error(getPlots(v), regexp = "No default method") expect_error(getWithin(v), regexp = "No default method") expect_error(getStrata(v), regexp = "No default method") expect_error(getType(v), regexp = "No default method") expect_error(getMirror(v), regexp = "No default method") expect_error(getConstant(v), regexp = "No default method") expect_error(getNperm(v), regexp = "No default method") expect_error(getMaxperm(v), regexp = "No default method") expect_error(getMinperm(v), regexp = "No default method") expect_error(getMake(v), regexp = "No default method") expect_error(getObserved(v), regexp = "No default method") expect_error(getAllperms(v), regexp = "No default method") expect_error(getComplete(v), regexp = "No default method") expect_error(getControl(v), regexp = "Failed to find a 'control' component in 'object'") expect_error(getHow(v), regexp = "Failed to find a 'control' component in 'object'") }) test_that("getControl works for allperms", { ctrl <- how() ap <- allPerms(1:6, control = ctrl) CTRL <- getControl(ap) expect_is(CTRL, "how") CTRL <- getHow(ap) expect_is(CTRL, "how") }) test_that("getHow works for check()", { ctrl <- how() res <- check(1:4, ctrl) CTRL <- getControl(res) expect_is(CTRL, "how") CTRL <- getHow(res) expect_is(CTRL, "how") })
Generated by dwww version 1.15 on Sat May 18 13:37:03 CEST 2024.