Fix missing renaming of expectation

llrs-roche · llrs-roche · commit 93ee92021069 · 2025-10-27T10:12:30.000+01:00
diff --git a/tests/testthat/test_bivariate_ggplot_call.R b/tests/testthat/test_bivariate_ggplot_call.R
@@ -20,31 +20,31 @@ testthat::test_that("bivariate_ggplot_call with numerics", {
 
 testthat::test_that("bivariate_ggplot_call with factor, char, logical", {
   error_message <- "Categorical variables 'x' and 'y' are currently not supported."
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("factor", "factor") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("logical", "factor") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("character", "factor") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("logical", "character") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("character", "logical") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("logical", "logical") %>% deparse(width.cutoff = 300),
     error_message
   )
-  testthat::expect_match(
+  testthat::expect_error(
     bivariate_ggplot_call("character", "character") %>% deparse(width.cutoff = 300),
     error_message
   )

Original file line number	Diff line number	Diff line change
`@@ -20,31 +20,31 @@ testthat::test_that("bivariate_ggplot_call with numerics", {`
`20`	`20`
`21`	`21`	`testthat::test_that("bivariate_ggplot_call with factor, char, logical", {`
`22`	`22`	`error_message <- "Categorical variables 'x' and 'y' are currently not supported."`
`23`		`- testthat::expect_match(`
	`23`	`+ testthat::expect_error(`
`24`	`24`	`bivariate_ggplot_call("factor", "factor") %>% deparse(width.cutoff = 300),`
`25`	`25`	`error_message`
`26`	`26`	`)`
`27`		`- testthat::expect_match(`
	`27`	`+ testthat::expect_error(`
`28`	`28`	`bivariate_ggplot_call("logical", "factor") %>% deparse(width.cutoff = 300),`
`29`	`29`	`error_message`
`30`	`30`	`)`
`31`		`- testthat::expect_match(`
	`31`	`+ testthat::expect_error(`
`32`	`32`	`bivariate_ggplot_call("character", "factor") %>% deparse(width.cutoff = 300),`
`33`	`33`	`error_message`
`34`	`34`	`)`
`35`		`- testthat::expect_match(`
	`35`	`+ testthat::expect_error(`
`36`	`36`	`bivariate_ggplot_call("logical", "character") %>% deparse(width.cutoff = 300),`
`37`	`37`	`error_message`
`38`	`38`	`)`
`39`		`- testthat::expect_match(`
	`39`	`+ testthat::expect_error(`
`40`	`40`	`bivariate_ggplot_call("character", "logical") %>% deparse(width.cutoff = 300),`
`41`	`41`	`error_message`
`42`	`42`	`)`
`43`		`- testthat::expect_match(`
	`43`	`+ testthat::expect_error(`
`44`	`44`	`bivariate_ggplot_call("logical", "logical") %>% deparse(width.cutoff = 300),`
`45`	`45`	`error_message`
`46`	`46`	`)`
`47`		`- testthat::expect_match(`
	`47`	`+ testthat::expect_error(`
`48`	`48`	`bivariate_ggplot_call("character", "character") %>% deparse(width.cutoff = 300),`
`49`	`49`	`error_message`
`50`	`50`	`)`