tests/testthat/test-S3vismodel.R

In pavo: Perceptual Analysis, Visualization and Organization of Spectral Colour Data

# File to test S3 functions related to the vismodel class

test_that("summary.vismodel", {
  data(sicalis)
  vis.sicalis <- vismodel(sicalis, visual = "avg.uv")
  summary_vis <- expect_output(summary(vis.sicalis), "visual model options")
  expect_s3_class(summary_vis, "table")

  expect_message(summary_subset <- summary(vis.sicalis[, -5]), "subset data")
  expect_identical(summary_subset, summary.data.frame(vis.sicalis[, -5]))
})