test_that("Yellow waveband is correct for default", {
  expect_equal(Yellow(), Yellow("ISO"))
})

test_that("Yellow waveband is correct for \"ISO\"", {
  wb <- Yellow(std = "ISO")
  expect_equal(wl_range(wb), c(570, 591))
  expect_equal(wl_range(wb), range(Yellow()))
  expect_equal(wl_range(wb), range(Yellow("ISO")))
  expect_equal(labels(wb)$label, "Yellow")
  expect_equal(labels(wb)$name, "Yellow.ISO")
  expect_equal(wb$weight, "none")
  expect_null(wb$SWF.e.fub)
  expect_null(wb$SWF.q.fub)
  expect_null(wb$norm)
  expect_type(wb$hinges, "double")
  expect_equal(length(wb$hinges), 4L)
})

test_that("Yellow waveband is correct for bad std", {
  expect_warning(wb <- Yellow(std = "bad-std"))
  expect_equal(wl_range(wb), c(NA_real_, NA_real_))
  expect_equal(labels(wb)$label, "Not available")
  expect_equal(labels(wb)$name, "Not available")
  expect_equal(wb$weight, "none")
  expect_null(wb$SWF.e.fub)
  expect_null(wb$SWF.q.fub)
  expect_null(wb$norm)
  expect_type(wb$hinges, "double")
  expect_true(all(is.na(wb$hinges)))
  expect_equal(length(wb$hinges), 4L)
})