tests/testthat/test6_pul_files.R

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

context("reading of old DAT1 files") 

oldfile    <-"testdata/alpha7_Messung28062013.dat"

toc<-get_treeinfo(oldfile)
showConnections()

expect_equal(names(toc[[1]]), 
             c("1 : E-606", "2 : E-607", "3 : E-608", "4 : E-609", "5 : E-610", "6 : E-611")
)
expect_equal_to_reference(names(toc[[c(1,1)]]), file="ref/Oldfile_TOC")
expect_equal(attributes(toc[[c(1,1,2)]])$StimulusName, "1Puls-Piezo")
s<-getSeries(toc,1,1,14)
expect_equal_to_reference(s,file="ref/oldfile_series")


# raise error if *pul or *pgf is missing:
expect_error(
  get_treeinfo("testdata/alpha7_Messung28062013_orphan.dat") 
)