Maintenance scheduled for Thursday, October 22nd at 15:00 MDT. Expected downtime <1 hour.

Commit 1b96316e authored by Blodgett, David L.'s avatar Blodgett, David L.

3.6 test cleanup

parent 72e06639
......@@ -34,6 +34,6 @@ test_that("create geom_examples.md", {
}
sink()
testthat::skip_on_cran()
expect(file.exists(geom_examples))
expect_true(file.exists(geom_examples))
}, silent = TRUE)
})
......@@ -162,7 +162,7 @@ test_that("Create basic DSG file", {
attributes=global_attributes)
testnc<-nc_open(testnc)
expect(testnc$dim$time$len == 1460)
expect_true(testnc$dim$time$len == 1460)
char_test <- dplyr::mutate_all(test_dat2, as.character)
time <- c(test_data$time,test_data$time)
......@@ -176,7 +176,7 @@ test_that("Create basic DSG file", {
attributes=global_attributes)
testnc<-nc_open(testnc)
expect(testnc$dim$time$len == 1460)
expect_true(testnc$dim$time$len == 1460)
expect("duplicate" %in% names(testnc$var), failure_message = names(testnc$var))
......@@ -268,7 +268,7 @@ test_that("bork the file", {
att.delete.nc(nc, "time", "standard_name")
close.nc(nc)
warn <- capture_warnings(testlist<-read_timeseries_dsg(nc_file_borked))
expect(all(c("no data variables found, attempting to infer via shared dimensions",
expect_true(all(c("no data variables found, attempting to infer via shared dimensions",
"no latitude coordinate found",
"no longitude coordinate found") %in% warn))
......@@ -316,6 +316,6 @@ test_that('soilmoisturetools data writes as expected', {
nc <- nc_open(nc_file)
expect(file.exists(nc_file))
expect_true(file.exists(nc_file))
unlink(nc_file)
})
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment