tests/testthat/test-S3colspace.R

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

# File to test S3 functions related to the colspace class
data(sicalis)

test_that("summary.colspace", {

  # Single spectrum for summary.colspace with tcspace

  sicalis <- sicalis[, c(1, 2)]

  vis_sicalis <- vismodel(sicalis)
  tcs_sicalis <- colspace(vis_sicalis)
  expect_warning(
    sumtcs_sicalis <- expect_output(summary(tcs_sicalis), "Colorspace & visual"),
    "Not enough points"
  )
  expect_true(is.na(sumtcs_sicalis$huedisp.m))
  expect_true(is.na(sumtcs_sicalis$huedisp.v))

  expect_message(summary_subset <- summary(tcs_sicalis[, -17]), "subset data")
  expect_identical(summary_subset, summary.data.frame(tcs_sicalis[, -17]))

  expect_warning(tri_sicalis <- colspace(vismodel(sicalis, "cie10"), "tri"))
  expect_identical(
    summary(tri_sicalis),
    summary.data.frame(tri_sicalis)
  )

  data(flowers)

  expect_equal(sum(summary(colspace(vismodel(flowers)))[1:12]), 4.08984128)
})

test_that("subset.colspace", {
  tcs_sicalis <- colspace(vismodel(sicalis))

  tcs_sicalis_T <- subset(tcs_sicalis, "T")

  expect_identical(dim(tcs_sicalis_T), c(7L, 17L))
  expect_s3_class(tcs_sicalis_T, "colspace")
})