Add test and update changelog

Author: Bisaloo

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.
 * `getimg()` now imports image files with uppercase extensions (e.g., JPG or 
 PNG), such as those produced by some camera brands or processing software.
 * Maximum quantum catches computation (`data.maxqcatches` attribute) now works

tests/testthat/test-vismodel.R

@@ -35,6 +35,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", {
@@ -66,5 +71,4 @@ test_that("sensdata()", {
 
   colspace(vismodel(sensdata(illum = "D65"), visual = "cie10"))
 
-
 })