tests/testthat/test-SQSIndex.R

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

test_that("SQSIndex is working correctly", {
  df1<-list(data.frame(Time=c("2020-01-01 00:10:09", "2020-01-01 01:12:34"),
                       Cat=c('A','B')),
            data.frame(Time=c("2020-01-02 06:38:09", "2020-01-02 07:21:51"),
                       Cat=c('A','C')))
  sqslist<-SQSList(df1,2)
  allsqs<-AllSQS(c('A','B','C'),2)
  df2<-data.frame(V1=c(1,1,0,0,1,0,0,0,0,0,0,0),V2=c(1,0,1,0,0,1,0,0,0,0,0,0))
  expect_equal(SQSIndex(allsqs,sqslist),df2)

})