tests/testthat/test-independent-test-checkMatrix.R

In gsDesign: Group Sequential Design

# --------------------------------------------
# Test checkMatrix function
#----------------------------------------------


testthat::test_that("Test checkMatrix with invalid input", code = {
  M <- 5
  testthat::expect_error(checkMatrix(M, nrows = 3, ncols = 3),
    info = "Test checkMatrix with invalid input"
  )
})


testthat::test_that("Test checkMatrix function for invalid nrows", code = {
  M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
    nrow = 4,
    byrow = TRUE
  )
  testthat::expect_error(checkRUEMatrix(M, nrows = 3, ncols = 3),
    info = "Test checkMatrix function for invalid nrows"
  )
})

testthat::test_that("Test checkMatrix function for invalid ncols", code = {
  M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
    nrow = 4,
    byrow = TRUE
  )
  testthat::expect_error(checkMatrix(M, nrows = 4, ncols = 2),
    info = "Test checkMatrix function for invalid ncols"
  )
})


testthat::test_that("Test checkMatrix function for invalid isType", code = {
  M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
    nrow = 4,
    byrow = TRUE
  )
  testthat::expect_error(checkMatrix(M, isType = "character"),
    info = "Test checkMatrix function for invalid isType"
  )
})

testthat::test_that("Test checkMatrix function for invalid isType", code = {
  M <- matrix(c("a", "b", "cc", "aa", "cc", "dd"), nrow = 2, byrow = TRUE)
  testthat::expect_error(checkMatrix(M, isType = "numeric"),
    info = "Test checkMatrix function for invalid isType"
  )
})

testthat::test_that("Test checkMatrix function for mixed data ", code = {
  M <- matrix(c(32, 42, 54, 16, 7, "a"), nrow = 2, byrow = TRUE)
  testthat::expect_error(checkMatrix(M, isType = "numeric"),
    info = "Test checkMatrix function for mixed data"
  )
})

testthat::test_that("Test checkMatrix function for data in valid interval",
  code = {
    M <- matrix(c(32, 42, 54, 16, 7, 34), nrow = 2, byrow = TRUE)
    testthat::expect_error(checkMatrix(M, interval = c(21, 45), isType = "numeric"),
      info = "Test checkMatrix function for data in valid interval"
    )
  }
)


testthat::test_that("Test checkMatrix function for integer data",
  code = {
    M <- matrix(c(32L, 42.5, 54L, 16L), nrow = 2, byrow = TRUE)
    testthat::expect_error(checkMatrix(M, isType = "integer"),
      info = "Test checkMatrix function for integer data"
    )
  }
)


testthat::test_that("Test checkMatrix function for valid data", code = {
  M <- matrix(c(32, 42, 54, 16, 7, 87, 49, 10, 11, 22, 24, 45),
    nrow = 4,
    byrow = TRUE
  )
  testthat::expect_invisible(checkMatrix(M, nrows = 4, ncols = 3))
})