tests/testthat/test_extract_solute_spct.R

In aphalo/photobiology: Photobiological Calculations

library("photobiology")

context("extract")

test_that("solute_spct", {

  my.spct <- solute_spct(w.length = 400:450, K.mole = 0.5, K.type = "attenuation")
  my_z.spct <- my.spct
  my_z.spct$z <- 1

  expect_equal(class(my.spct)[1], "solute_spct")
  expect_equal(class(my.spct[ 1, ])[1], "solute_spct")
  expect_equal(class(my.spct[ FALSE, ])[1], "solute_spct")
  expect_equal(class(my.spct[ , -1])[1], "numeric")
  expect_equal(class(my.spct[ , 1])[1], "integer")
  expect_equal(class(my.spct[ FALSE, 1])[1], "integer")

  expect_equal(class(my_z.spct)[1], "solute_spct")
  expect_equal(class(my_z.spct[ 1, ])[1], "solute_spct")
  expect_equal(class(my_z.spct[ FALSE, ])[1], "solute_spct")
  expect_equal(class(my_z.spct[ , 1])[1], "integer")
  expect_equal(class(my_z.spct[ , -1])[1], "tbl_df")
  expect_warning(my_z.spct[ , -2])
  expect_equal(suppressWarnings(class(my_z.spct[ , -2])[1]), "solute_spct")
#  expect_equal(class(my_z.spct[ FALSE, -2])[1], "filter_spct")
#  expect_warning(my_z.spct[ FALSE , -2])

  expect_equal(getKType(my_z.spct), getKType(my.spct))
  expect_equal(getKType(my.spct[1:10, ]), getKType(my.spct))
  expect_equal(getKType(my.spct[FALSE, ]), getKType(my.spct))
  expect_equal(getKType(my_z.spct[ , -3]), getKType(my.spct))
  expect_equal(getKType(my_z.spct[-(1:5) , -3]), getKType(my.spct))
  expect_equal(getKType(my_z.spct[ , -3]), getKType(my.spct))

  expect_equal(nrow(my_z.spct[ , -3]), nrow(my.spct))
  expect_equal(ncol(my_z.spct[ , -3]), ncol(my.spct))
  expect_equal(ncol(my.spct[FALSE , ]), ncol(my.spct))
  expect_equal(nrow(my.spct[FALSE , ]), 0)
})


context("replace")

test_that("solute_spct", {

  my.spct <- solute_spct(w.length = 400:450, K.mole = 0.5, K.type = "attenuation")
  my_z.spct <- my.spct
  my_z.spct[1, 2] <- 1
  expect_equal(class(my_z.spct), class(my.spct))
  my_z.spct[ , 2] <- 1
  expect_equal(class(my_z.spct), class(my.spct))
  expect_warning(my_z.spct[ , 2] <- -1)
  expect_equal(class(my_z.spct), class(my.spct))
  expect_warning(my_z.spct[ , 2] <- -(my.spct[ , 2]))
  expect_equal(class(my_z.spct), class(my.spct))
  my_z.spct <- my.spct
  expect_error(my_z.spct[ , 1] <- -(my.spct[ , 1]))
  my_z.spct <- my.spct
  expect_error(my_z.spct[ , 1] <- 0)
  my_z.spct <- my.spct
  expect_error(my_z.spct$w.length <- 0)
  my_z.spct <- my.spct
  expect_error(my_z.spct[1 , 1] <- my.spct[ 2, 1])

  my_z.spct <- my.spct
  my_z.spct[1, 2] <- 1
  expect_equal(getKType(my_z.spct), getKType(my.spct))
  my_z.spct <- my.spct
  my_z.spct[ , 2] <- 1
  expect_equal(getKType(my_z.spct), getKType(my.spct))
})