init tests

DESCRIPTION

@@ -40,3 +40,9 @@ Imports:
     tibble,
     tidyr
 URL: http://christophertkenny.com/planscorer/
+Suggests: 
+    httptest2,
+    spelling,
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3
+Language: en-US

inst/httptest2/redact.R

@@ -0,0 +1,7 @@
+function(resp) {
+  resp |>
+    # shorten url
+    httptest2::gsub_response(pattern = 'api.planscore.org/', '') |>
+    # redact key
+    httptest2::gsub_response(pattern = planscorer::ps_get_key(), '')
+}

tests/spelling.R

@@ -0,0 +1,3 @@
+if(requireNamespace('spelling', quietly = TRUE))
+  spelling::spell_check_test(vignettes = TRUE, error = FALSE,
+                             skip_on_cran = TRUE)

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(planscorer)
+
+test_check("planscorer")

tests/testthat/setup.R

@@ -0,0 +1 @@
+library(httptest2)

tests/testthat/t/mdlvrs/model_versions.json

@@ -0,0 +1,10 @@
+[
+    [
+        "2022F",
+        "New: rerun the 2020 election with more accurate updated data (updated May 2022)"
+    ],
+    [
+        "2021B",
+        "Original: rerun an average election from the past 10 years with best available data from before Census release"
+    ]
+]

tests/testthat/test-model_versions.R

@@ -0,0 +1,5 @@
+with_mock_dir("t/mdlvrs", {
+  test_that("`ps_model_versions()` works", {
+    expect_s3_class(ps_model_versions(), "data.frame")
+  })
+})