tests/testthat/test5_todos.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

context("reordering")
tree<-get_treeinfo(system.file("extdata/2014-07-22_CHO hERG.dat", package = "ephys2"))
rtree <- reorder_tree(tree, 1:4)
ser1  = getSeries(tree,  1, 1, 7, trace = 2)
ser1r = getSeries(rtree, 1, 2, 7, trace = 1)
all   = get_all(tree,"hERG")
set_eventcursor(ser1, 1, "reordertest", curMax_, c(2, 2.1))

test_that("we survive reordering", {
  expect_equal(
    series_events(CURSORS$hERG$cursors, ser1$sweeps, "s1:") %>% names,
    series_events(CURSORS$hERG$cursors, ser1r$sweeps, "s1:") %>% names
  )
  #except the trace column which changes during reordering, all should be equal
  expect_equal(subset(ser1$results(), select=-trace) ,
               subset(ser1r$results(), select=-trace))
})

test_that("we can rename tree rootnodes if we want",{
  names(tree)<-"renamed"
  
  # test getSeries
  ser1b =  getSeries(tree,  1, 1, 7, trace = 2)
  expect_equal(ser1$results()[,-7] ,
               ser1b$results()[,-7])
  
  # test get_all:
  all_b<-get_all(tree,"hERG")
  expect_equal(all,all_b)
})

test_that("class of tree object is not important for getSeries", {
  ser1b =  getSeries(c(tree)[1],  1, 1, 7, trace = 2)
  expect_equal(ser1$results()[,-7] ,
               ser1b$results()[,-7])
})

test_that("class of tree object is important for get_all", {
  expect_error(    get_all(c(tree)[],"hERG")    )
})