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))
 })