tests/testthat/test_conversion.R

In spectrolab: Class and Methods for Spectral Data

library("testthat")
library("spectrolab")

context("Spectra conversion")

test_that("matrix is converted to spectra", {
    expect_s3_class( as_spectra(spec_matrix_example, name_idx = 1), "spectra" )
})

test_that("data frame is converted to spectra", {
    expect_s3_class( as_spectra( as.data.frame(spec_matrix_example), name_idx = 1), "spectra" )
})

test_that("spectra is converted to matrix", {
    expect_true( is.matrix(as.matrix( as_spectra(spec_matrix_example, name_idx = 1) )))
})