tweak tests (#4)

IQSS · Jun 15, 2017 · f264f93 · f264f93
1 parent 27d08a1
commit f264f93
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/testthat/tests-data-access.R b/tests/testthat/tests-data-access.R
@@ -2,12 +2,12 @@ context("Data Access API")
 
 test_that("get file metadata from DOI and filename", {
     f1 <- get_file_metadata("constructionData.tab", "doi:10.7910/DVN/ARKOTI", server = "dataverse.harvard.edu")
-    expect_true(is.list(f1))
+    expect_true(is.character(f1))
 })
 
 test_that("get file metadata from file id", {
-    f1 <- get_file_metadata(2692202, server = "dataverse.harvard.edu")
-    expect_true(is.list(f1))
+    f1 <- get_file_metadata(2692293, server = "dataverse.harvard.edu")
+    expect_true(is.character(f1))
 })
 
 test_that("download file from DOI and filename", {
@@ -16,6 +16,6 @@ test_that("download file from DOI and filename", {
 })
 
 test_that("download file from file id", {
-    f2 <- get_file(2692202, server = "dataverse.harvard.edu")
-    expect_true(is.raw(f2))
+    f1 <- get_file(2692293, server = "dataverse.harvard.edu")
+    expect_true(is.raw(f1))
 })