tests/testthat/test-SQSList.R

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

test_that("SQSList is working correctly", {
  df1<-list(data.frame(Time=rep(0,7),
                       Cat=c('A','B','C','A','A','B','C')),
            data.frame(Time=rep(0,7),
                       Cat=c('B','B','C','A','A','B','A')))
  df2<-vector('list',2)
  df2[[1]]<-matrix(c('A','A','0','B','B','0','C','C','0','A','B','1','B',
                     'C','1','C','A','1','A','A','1'),nrow=7,ncol=3,byrow=T)
  df2[[2]]<-matrix(c('B','B','0','C','C','0','A','A','0','B','B','1','B',
                     'C','1','C','A','1','A','A','1','A','B','1','B','A','1'),nrow=9,ncol=3,byrow=T)
  expect_equal(SQSList(df1,2),df2)
})