test: add some qp_fit unit tests

R/qp_fit.R

@@ -30,14 +30,14 @@ qp_fit <- function(x) {
 #' @export
 qp_fit.data.frame <- function(x) {
 
-  if (!".log2_abs" %in% colnames(x)) {
+  if (!has_cols(x, ".log2_abs")) {
     rlang::inform("Did not find column `.log2_abs`, calculating.")
     check_has_cols(x, ".abs")
     check_abs(x$.abs)
     x$.log2_abs <- log2(x$.abs)
   }
 
-  if (!".is_outlier" %in% colnames(x)) {
+  if (!has_cols(x, ".is_outlier")) {
     rlang::inform(
       c("Did not find column `.is_outlier`, fitting with all standards.",
         "i" = "To remove outliers, set `ignore_outliers` in `qp_calc_abs_mean`")

tests/testthat/test-qp_fit.R

@@ -0,0 +1,19 @@
+test_that("multiplication works", {
+  expect_equal(2 * 2, 4)
+})
+
+test_that(".log2_abs is calculated if not present", {
+  x <- absorbances[1:40, ] |>
+    qp_mark_outliers("all") |>
+    qp_add_std_conc()
+  expect_message(qp_fit(x), "Did not find column `\\.log2_abs`")
+  expect_equal(log2(x$.abs), qp_fit(x)$qp$.log2_abs)
+})
+
+test_that(".is_outlier is produced if not present", {
+  x <- absorbances[1:40, ]
+  x$.log2_abs <- log2(x$.abs)
+  x <- qp_add_std_conc(x)
+  expect_message(qp_fit(x), "Did not find column `\\.is_outlier`")
+  expect_true(all(is.na(qp_fit(x)$qp$.is_outlier)))
+})