tests/testthat/test-orm_oddstable.R

In rix133/ormPlot: Advanced Plotting of Ordinal Regression Models

#READ THE TEST DATA
test_data_001<-readRDS("../testdata/test_data_001.rds")
test_data_002<-test_data_001[1:8,]
test_data_003<-test_data_001[1:9,]
test_data_004<-test_data_001[2:9,]



test_that("matrix is produced",{
  expect_that(oddstable(test_data_001), is_a("matrix"))

})

test_that("matrix has the correct number of rows",{
  expect_that(nrow(oddstable(test_data_001)), equals(9))
  expect_that(nrow(oddstable(test_data_002)), equals(4))
  expect_that(nrow(oddstable(test_data_004)), equals(4))

})

test_that("takes only input with even number of rows",{
  expect_error(oddstable(test_data_003), "Aborting! The number of input rows is odd!")

})