# call conquest to create rout object the default is an ICC
mySysTest <- conquestr::ConQuestSys()
myItn <- conquestr::getCqItanal(mySysTest)
myTestItnTable <- myItn[[10]]$table
myTestItnSum <- myItn[[13]]

# Rout tests
test_that("Rout file is of correct type", {
  expect_s3_class(myItn, "cqItanal")
  expect_s3_class(myTestItnTable, "data.frame")
  expect_setequal(myTestItnTable$Count, c(776, 70, 57, 88, 8))
  expect_equal(myTestItnSum$Alpha, 0.64909436, tolerance = 0.01)
  }
)