tests/testthat/test-sc.channels.R

In tz-lom/Resonance-Rproj: Interface for Resonance project

context("sc.channels")

test_that("Small time deviations are ignored", {
  
  si <- SI.channels(1, 120)
  streams <- list(si)
  blocks <- list(
    DB.channels(si, timeoption2ts(si, 206)+5, 1:6),
    DB.channels(si, timeoption2ts(si, 212)-4000, 1:6),
    DB.channels(si, timeoption2ts(si, 218)+4000, 1:6)
  )
  
  code <- "
process=function(){
  createOutput(sc.channels(input(1)), 'out')
}"
  # @todo: why +1, not +5 ????
  reference <- list(out=DB.channels(si, timeoption2ts(si, 218)+1, as.double(c(1:6,1:6,1:6))))
  
  online <- run.online(streams, blocks, code)
  offline <- run.offline(streams, blocks, code)
  expect_identical(online, offline)
  expect_identical(online, reference)
})

# @todo : implement this
#test_that("Large time deviations can be asserted", {
#  
#})
#
#test_that("Large time deviations assert can be turned off", {
#  
#})