Upgrade tests to 3 edition

DESCRIPTION

@@ -25,6 +25,8 @@ Suggests:
     testthat
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
+Config/testthat/edition: 3
+Config/testthat/parallel: true
 RoxygenNote: 7.3.2
 X-schema.org-isPartOf: http://ropengov.org/
 X-schema.org-keywords: ropengov

tests/testthat/test-dst_date_parse.R

@@ -1,51 +1,49 @@
-context("dst_date_parse")
-
 test_that("dst_date_parse gives the correct class.", {
-  
+
   exp_dates <- c("POSIXct", "POSIXt")
-  
+
   # Daily
   expect_equal(class(dst_date_parse(dst_date = "2000M01D01")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = c("2000M01D20", "2000M02D21", "2000M03D23", "2000M04D24"))), exp_dates)
-  
+
   # Monthly
   expect_equal(class(dst_date_parse(dst_date = "2000M01")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = c("2000M01", "2000M02", "2000M03", "2000M04", "2000M10", "2000M11"))), exp_dates)
-  
+
   # Quarterly
   expect_equal(class(dst_date_parse(dst_date = "2000Q1")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = "2000Q2")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = "2000Q3")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = "2000Q4")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = c("2000Q1", "2000Q2", "2000Q3", "2000Q4"))), exp_dates)
-  
+
   # Yearly
   expect_equal(class(dst_date_parse(dst_date = "2000")), exp_dates)
   expect_equal(class(dst_date_parse(dst_date = c("2000", "2000", "2000", "2000"))), exp_dates)
-  
+
   expect_equal(class(dst_date_parse(dst_date = c("2015H1", "2015H2"))), exp_dates)
   expect_equal(as.character(dst_date_parse(dst_date = c("2015H1", "2015H2"))), c("2015-01-01", "2015-07-01"))
-  
+
 })
 
 
 test_that("Test that dst_date_parse stops when the input is bad.", {
-  
+
   # Daily
   expect_error(dst_date_parse(dst_date = "2000M01D35"))
   expect_error(dst_date_parse(dst_date = "2000M10D40"))
-  
+
   # Monthly
   expect_error(dst_date_parse(dst_date = "20000M01"))
   expect_error(dst_date_parse(dst_date = "2000M101"))
   expect_error(dst_date_parse(dst_date = "2000M13"))
-  
+
   # Quarterly
   expect_error(dst_date_parse(dst_date = "2000Q0"))
   expect_error(dst_date_parse(dst_date = "2000Q5"))
-  
+
   # Yearly
   expect_error(dst_date_parse(dst_date = "20000"))
   expect_error(dst_date_parse(dst_date = "200"))
-  
+
 })

tests/testthat/test-dst_get_data.R

@@ -1,28 +1,25 @@
-
-context("dst_get_data")
-
 test_that("dst_get_data returns an error when the limit is reached.", {
-  
+
   expect_error(dst_get_data(table = "folk1",
-                            query = list(CIVILSTAND = "*", 
-                                            STATSB = "*", 
+                            query = list(CIVILSTAND = "*",
+                                            STATSB = "*",
                                             HERKOMST = c("Personer med dansk oprindelse", "Efterkommere"),
                                             TID = "*",
                                             ALDER = "*"), lang = "da"))
-  
+
 })
 
 
 test_that("dst_get_data is parsing the data correctly when 'en' and 'da' are selected as language. The API returns decimal numbers with both , and .", {
-  
+
   expect_equal(class(dst_get_data("AUP01", ALDER = "*", TID = "*", lang = "da", format = "CSV")$value), "numeric")
-  
+
 })
 
 test_that("dst_get_data fails with the BULK format when not all parameters have values.", {
-  
+
   expect_error(dst_get_data("AUP01", ALDER = "*", TID = "*", lang = "da", format = "BULK"))
-  
+
 })
 
 

tests/testthat/test-dst_get_tables.R

@@ -1,15 +1,12 @@
-
-context("dst_get_tables")
-
 test_that("dst_get_tables return a data.frame",{
-  
+
   expect_equal(class(dst_get_tables(lang = "da")), "data.frame")
   expect_equal(class(dst_get_tables(lang = "en")), "data.frame")
-  
+
 })
 
 test_that("dst_get_tables failes with wrong language input",{
-  
+
   expect_error(dst_get_tables(lang = "uk"))
   expect_error(dst_get_tables(lang = "no"))
 })

tests/testthat/test-dst_query_match.R

@@ -1,8 +1,4 @@
-
-
-context("dst_query_match")
-
 test_that("The function fails when mandatory values are not supplied.",{
-  
+
   expect_error(dst_query_match(table = "NRHP", meta_data = NULL, lang = "en", query = list(TRANSAKT = "P.1 Output", Tid = "1993")))
-})
+})

tests/testthat/test-dst_value_limit.R

@@ -1,8 +1,3 @@
-
-
-
-context("dst_value_limit")
-
 test_that("dst_value_limit returns the correct value.", {
 
   expect_equal(dst_value_limit(query = list(CIVILSTAND = "*",