tests/testthat/test_plot.R

In pramitghosh/fdim: Similarity and Affinity Measures for Spatial Vector Data

context("Plots\n")
library(rnaturalearth)
library(sameSVD)

deutschland = import_SVD(ne_countries(scale = "medium", country = "Germany", returnclass = "sf"))

test_that(desc = "Check plotting in bcd()",
            {
              expect_output(bcd(deutschland, type = "s", l = seq(25000, 100000, 25000), plot = TRUE), "Plotting requested...\n")
              expect_equal(grepl("Plotting least-squares regression line...", capture_output(bcd(deutschland, type = "s", l = seq(25000, 100000, 25000), plot = TRUE))), TRUE)
            }
          )