tests/testthat/test_trim_waveband.R

In aphalo/photobiology: Photobiological Calculations

library("photobiology")

context("trim_wl")

test_that("waveband", {

  my.spct <- source_spct(w.length = 400:450, s.e.irrad = 0.5, time.unit = "second")
  my.wb <- waveband(c(300,500))
  expect_equal(expanse(trim_wl(my.wb, my.spct)), expanse(my.spct))
  expect_equal(range(trim_wl(my.wb, my.spct)), range(my.spct))

  my.wb <- waveband(c(100, 150))
  expect_equal(trim_wl(my.wb, my.spct), waveband())

})