init test on integrity #18

TheoreticalEcosystemEcology · Feb 17, 2017 · 8a9ae03 · 8a9ae03
1 parent 0bc1a59
commit 8a9ae03
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-alienData.R b/tests/testthat/test-alienData.R
@@ -5,7 +5,12 @@ out <- as.alienData(idObs=idObs,interactPair=interactPair,traitSp=traitSp,traitI
 
 test_that("check data structure", {
   expect_is(out, "alienData")
+  # Even if items from the list are NULL, all items have to be returned
+  expect_equal(names(out),c("idObs","interactSp","interactInd","coOcc","coAbund","siteEnv","traitSp","traitInd","phylo"))
 })
 
 test_that("check data integrity", {
+  # create fake data
+  idObs <- data.frame(idSite=rep(3,c("")), idTime=NULL)
+
 })