oops

ropensci-archive · Aug 1, 2017 · e6846c2 · e6846c2
1 parent 51dfa4a
commit e6846c2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/tests/testthat/test-buildQueries.R b/tests/testthat/test-buildQueries.R
@@ -54,7 +54,7 @@ test_that("Queries work with spaces and accents",{
   result1 <- aq_measurements(city = "Heinz+Ott", country = "DE",
                              limit = 1, page = 1)
   expect_is(result1, "tbl_df")
-  result2 <- aq_measurements(city = "Dagmar+G%C3%B6mer", country = "DE",
+  result2 <- aq_measurements(city = "J%EF%BF%BDrgen+Friesel", country = "DE",
                              limit = 1, page = 1)
   expect_is(result2, "tbl_df")
 

diff --git a/tests/testthat/test-latest.R b/tests/testthat/test-latest.R
@@ -17,9 +17,9 @@ test_that("latest returns a list of 3 data.frames (tbl_df)", {
 
 test_that("latest has the right columns", {
   skip_on_cran()
-  output <- aq_latest(page = 1)
+  output <- aq_latest(page = 1, limit = 10)
   tableRes <- output
-  expect_true(all(names(tableRes) == c("location",
+  expect_true(all(names(tableRes) %in% c("location",
                                        "city",
                                        "country",
                                        "latitude",
@@ -30,7 +30,9 @@ test_that("latest has the right columns", {
                                        "unit",
                                        "sourceName",
                                        "cityURL",
-                                       "locationURL")))
+                                       "locationURL",
+                                       "averagingPeriod_unit",
+                                       "averagingPeriod_value")))
   expect_true(class(tableRes$location) == "character")
   expect_true(class(tableRes$parameter) == "character")
   expect_true(class(tableRes$value) == "numeric")