Fixed tests that were broken after change to dscquery.

stephenslab · Apr 16, 2019 · 276e300 · 276e300
1 parent 90892e1
commit 276e300
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/dscrutils/tests/testthat/test_dscquery.R b/dscrutils/tests/testthat/test_dscquery.R
@@ -9,7 +9,8 @@ test_that(paste("First one_sample_location DSC query examples returns a",
  dsc.dir <- system.file("datafiles","one_sample_location","dsc_result",
  package = "dscrutils")
  dat <- dscquery(dsc.dir,targets = c("simulate.n","analyze","score.error"),
- conditions = "$(simulate.n) > 10",verbose = FALSE)
+ conditions = "$(simulate.n) > 10",omit.filenames = TRUE,
+ verbose = FALSE)
  expect_equal(dim(dat),c(8,6))
 })
 
@@ -156,7 +157,7 @@ test_that(paste("dscquery filtering by condition works when return value is",
  package = "dscrutils")
  out <- dscquery(dsc.dir,targets = c("analyze","simulate.data","score.error"),
  conditions=c("$(analyze) == 'mean'","$(score.error) < 0.2"),
- verbose = FALSE)
+ omit.filenames = TRUE,verbose = FALSE)
  expect_equivalent(sapply(out,length),rep(2,6))
 })