From c52c0ae62541b18ea548f06d2eb800fd7ef8f3a9 Mon Sep 17 00:00:00 2001
From: Tim Cadman <41470917+timcadman@users.noreply.github.com>
Date: Thu, 9 May 2024 16:51:57 +0200
Subject: [PATCH] chore: fixed tests presumably broken by update to dplyr

---
 tests/testthat/test-lm-tab.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test-lm-tab.R b/tests/testthat/test-lm-tab.R
index a912fef..9b4a935 100644
--- a/tests/testthat/test-lm-tab.R
+++ b/tests/testthat/test-lm-tab.R
@@ -113,7 +113,7 @@ ipd_rename_not_expected <- ipd_rename_expected %>%
 test_that("rename_ipd throws error if provided incorrect variable names", {
   expect_error(
     rename_ipd(ipd_rename_not_expected),
-    "Can't subset columns that don't exist.\n✖ Column `variable` doesn't exist.",
+    "Can't select columns that don't exist.\n✖ Column `variable` doesn't exist.",
     fixed = TRUE
   )
 })
@@ -209,7 +209,7 @@ slma_rename_not_expected <- slma_rename_expected %>%
 test_that("rename_glm_slma throws error if provided incorrect variable names", {
   expect_error(
     rename_glm_slma(slma_rename_not_expected),
-    "Can't subset columns that don't exist.\n✖ Column `variable` doesn't exist.",
+    "Can't select columns that don't exist.\n✖ Column `variable` doesn't exist.",
     fixed = TRUE
   )
 })
@@ -274,7 +274,7 @@ lmer_rename_not_expected <- lmer_rename_expected %>%
 test_that("rename_lmer_slma throws error if provided incorrect variable names", {
   expect_error(
     rename_lmer_slma(lmer_rename_not_expected),
-    "Can't subset columns that don't exist.\n✖ Column `variable` doesn't exist.",
+    "Can't select columns that don't exist.\n✖ Column `variable` doesn't exist.",
     fixed = TRUE
   )
 })
@@ -389,7 +389,7 @@ pooled_rename_not_expected <- pooled_rename_expected %>%
 test_that("rename_slma_pooled throws error if provided incorrect variable names", {
   expect_error(
     rename_slma_pooled(pooled_rename_not_expected),
-    "Can't subset columns that don't exist.\n✖ Column `variable` doesn't exist.",
+    "Can't select columns that don't exist.\n✖ Column `variable` doesn't exist.",
     fixed = TRUE
   )
 })