tests/testthat/test_readLayoutFile.R

In phonixor/MicroPlate: Import and handle microplate reader data.

library(testthat)

test_that("readLayoutFile.R_basic_tests",{
  # test differnt file format
  # TODO test different parsers
  #
  # xlsFile=paste(getwd(),"/tests/testdata/parsers/readLayoutFile/layout.xls",sep="")
  # xlsxFile=paste(getwd(),"/tests/testdata/parsers/readLayoutFile/layout.xlsx",sep="")
  # odsFile=paste(getwd(),"/tests/testdata/parsers/readLayoutFile/layout.ods",sep="")
  xlsFile=paste(getwd(),"/../testdata/parsers/readLayoutFile/layout.xls",sep="")
  xlsxFile=paste(getwd(),"/../testdata/parsers/readLayoutFile/layout.xlsx",sep="")
  odsFile=paste(getwd(),"/../testdata/parsers/readLayoutFile/layout.ods",sep="")
  
  xls=readLayoutFile(xlsFile)
  xlsx=readLayoutFile(xlsxFile)
  ods=readLayoutFile(odsFile)
   
  # test is everyting is the same
  expect_true(all(xls[]==xlsx[], na.rm=T))
  expect_true(all(xls[]==ods[], na.rm=T))
  
  expect_true(  all(dim(ods)==c(24000,13))  )
  
  # test merge
  ods=merge(ods,xls) # note that by default the 2nd MicroPlate will be added to the first, and the 2nd will then be deleted
  expect_false(exists("xls"))
  expect_true(all(dim(ods[level=3])==c(2,4)))
  expect_true(all(dim(ods[level=2])==c(192,10)))
  expect_true(all(dim(ods[level=1])==c(48000,13)))
  ods=merge(ods,xlsx,removeOther = F) # test if it works twice
  expect_true(all(dim(ods[level=3])==c(3,4)))
  expect_true(all(dim(ods[level=2])==c(288,10)))
  expect_true(all(dim(ods[level=1])==c(72000,13)))
  expect_true(exists("xlsx"))
  
  # test data first then add layout
#   kdata="/../testdata/project/KineticData.xls"
#   parser="..."
#   addLayoutDataToMicroPlate()
  # test multiple sheet layoutfiles
  
  
  
})