tests/testthat/test-AllSQS.R

In jgillam13/IRASD: What the Package Does (One Line, Title Case)

test_that("AllSQS is working correctly", {
  df1<-matrix(c("A","A","0" ,"B","B","0" ,"C", "C","0", "A" ,"A","1" ,"A",
                "B","1", "A", "C","1", "B", "A","1", "B","B", "1","B" ,
                "C","1","C", "A","1","C" ,"B","1","C" ,"C", "1"),nrow=12,
                ncol=3,byrow=T)
  expect_equal(AllSQS(c('A','B','C'),2),df1)
})