tests/testthat/test_ggWater.R

In tracee: Easily Save Output and Trace it Back to Code

## context("ggWater")

## test_that("general use",{

##     fileRef <- "testReference/ggwater1.rds"

##     p1 <- ggplot(data.frame(x=1,y=1),aes(x,y))+geom_point()
##     p1 <- p1+ggwater()

## ### I don't understand why this no longer works. The reference has no watermark.
##     ## expect_equal_to_reference(p1,fileRef)
    
## })