From b15edc6ad44afec3afd6c5df644a058a11fe8dc2 Mon Sep 17 00:00:00 2001 From: jtlandis Date: Wed, 28 Feb 2024 11:37:43 -0500 Subject: [PATCH] Testing CodeCov metrics --- tests/testthat/test_add_gg.R | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_add_gg.R b/tests/testthat/test_add_gg.R index f75c1fc..9fc7dd2 100644 --- a/tests/testthat/test_add_gg.R +++ b/tests/testthat/test_add_gg.R @@ -18,9 +18,10 @@ test_that("Overwritten `+.gg` still adds layers as expected",{ expect_false(identical(p3$scales,p4$scales)) }) +p <- ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) + + geom_point() + test_that("New ggside layers are added correctly",{ - p <- ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) + - geom_point() expect_s3_class(p, "ggplot") expect_s3_class(ggside(), "ggside_options") p1 <- p + geom_xsidedensity(aes(y=after_stat(density))) @@ -39,3 +40,18 @@ test_that("New ggside layers are added correctly",{ }) +test_that("add_gg errors", { + expect_error(+p, "with a single argument. Did you accidentally put") + expect_error({ggside:::add_gg("character", p, "a character")}, "no applicable method for 'add_gg'") + expect_error("" + p, "No method defined for class character") + fake_theme <- structure(numeric(), class = "theme") + expect_error(theme() + fake_theme, "to a theme object") + expect_error(ggproto() + p, "Cannot add ggproto objects together") +}) + +test_that("add_gg identities", { + expect_identical(p + NULL, p) + expect_identical(theme() + theme_bw(), theme_bw()) +}) + +