Add test and update changelog

NEWS.md

@@ -14,6 +14,10 @@
 
 ## MINOR FEATURES AND BUG FIXES
 
+* `vismodel()` now works with spectral data that doesn't span the whole 
+300-700nm range as long as the spectral sensitivity is zero for the missing 
+range. This is useful if you have data covering the 390-700nm range and work 
+the CIE model for example.
 * `bootcoldist()` is now laxer in its argument checks and accept objects that 
 are neither `vismodel` or `colspace` objects. This means you can now use this 
 function on quantum catches dataframe that you obtained outside of pavo, such

tests/testthat/test-vismodel.R

@@ -37,6 +37,11 @@ test_that("Warnings", {
 
   expect_silent(vismodel(flowers_NIR, sensmodel(c(350, 450, 550, 650), range = c(300, 1200))))
 
+  expect_identical(
+    vismodel(flowers, visual = "cie10", illum = "D65", vonkries = TRUE, relative = FALSE),
+    vismodel(flowers[91:401,], visual = "cie10", illum = "D65", vonkries = TRUE, relative = FALSE)
+  )
+
 })
 
 test_that("Sensmodel", {
@@ -52,13 +57,13 @@ test_that("Sensmodel", {
 })
 
 test_that("sensdata()", {
-  
+
   vis_all <- sensdata(visual = "all", achromatic = "all",
                       illum = "all", trans = "all",
                       bkg = "all")
-  
+
   # No negative values, no NA
   expect_false(any(vis_all < 0))
   expect_false(anyNA(vis_all))
-  
+
 })