test basic adjust_numeric_calibration() usage

Author: simonpcouch

tests/testthat/test-adjust-numeric-calibration.R

@@ -1,3 +1,39 @@
+test_that("basic adjust_numeric_calibration usage works", {
+  library(tibble)
+
+  set.seed(1)
+  d_potato <- tibble(y = rnorm(100), y_pred = y/2 + rnorm(100))
+  d_test <- tibble(y = rnorm(100), y_pred = y/2 + rnorm(100))
+
+  # fitting and predicting happens without raising conditions
+  expect_no_condition(
+    tlr <-
+      tailor() %>%
+      adjust_numeric_calibration(method = "linear")
+  )
+
+  expect_no_condition(
+    tlr_fit <- fit(tlr, d_potato, outcome = y, estimate = y_pred)
+  )
+
+  expect_no_condition(
+    tlr_pred <- predict(tlr_fit, d_test)
+  )
+
+  # classes are as expected
+  expect_s3_class(tlr, "tailor")
+  expect_s3_class(tlr_fit, "tailor")
+  expect_s3_class(tlr_pred, "tbl_df")
+
+  # column names are as expected
+  expect_equal(colnames(d_test), colnames(tlr_pred))
+
+  # calculations match those done manually
+  # TODO: write out the probably code manually here
+})
+
+# TODO: test sensitivity to function arguments
+
 test_that("adjustment printing", {
   expect_snapshot(tailor() %>% adjust_numeric_calibration())
 })