diff --git a/tests/testthat/tests-get_file.R b/tests/testthat/tests-get_file.R index 4af59aa..08f28e8 100644 --- a/tests/testthat/tests-get_file.R +++ b/tests/testthat/tests-get_file.R @@ -3,7 +3,7 @@ context("Data Access API") # See https://demo.dataverse.org/dataverse/dataverse-client-r # https://doi.org/10.70122/FK2/FAN622 -test_that("download file from DOI and filename", { +test_that("download tab from DOI and filename", { actual <- get_file( file = "roster-bulls-1996.tab", dataset = "doi:10.70122/FK2/FAN622" @@ -12,7 +12,7 @@ test_that("download file from DOI and filename", { expect_true(1000 < object.size(actual)) # Should be 1+ KB }) -test_that("download file from file id", { +test_that("download tab from file id", { actual <- get_file( file = 396357 ) diff --git a/tests/testthat/utils-manifest.R b/tests/testthat/utils-manifest.R index 2943ad3..3e80b11 100644 --- a/tests/testthat/utils-manifest.R +++ b/tests/testthat/utils-manifest.R @@ -14,7 +14,6 @@ retrieve_manifest <- function ( ) { d } # retrieve_manifest() -# checkmate::assert_fi retrieve_file_expected <- function (subdataverse, file_name) { path <-