tests/testthat/test_i_names_ctor.R

In meireles/spectrolab: Class and Methods for Spectral Data

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

context("Spectra names spectrolab:::i_names() ctor")

vec1_char = c("a")
vec1_num  = c(1)
vec1_fac  = factor(vec1_char)

vec3_char = c("a", "b", "c")
vec3_num  = c(1, 2, 3)
vec3_fac  = factor(vec3_char)

list3_char = as.list(vec3_char)
list3_num  = as.list(vec3_num)
list3_fac  = as.list(vec3_fac)

df3  = data.frame(vec3_char, vec3_num, vec3_fac, stringsAsFactors = FALSE)
df3u = unname(unlist(df3))


test_that("spectrolab:::i_names is given a vector of different data types", {
    expect_equal(spectrolab:::i_names(vec1_char), vec1_char)
    expect_equal(spectrolab:::i_names(vec1_num),  "1")
    expect_equal(spectrolab:::i_names(vec1_fac), vec1_char)

    expect_equal(spectrolab:::i_names(vec3_char), vec3_char)
    expect_equal(spectrolab:::i_names(vec3_num),  as.character(vec3_num))
    expect_equal(spectrolab:::i_names(vec3_fac), vec3_char)
})


test_that("spectrolab:::i_names is given a list of different data types", {
    expect_equal(spectrolab:::i_names(list3_char), vec3_char)
    expect_equal(spectrolab:::i_names(list3_num), as.character(vec3_num))
    expect_equal(spectrolab:::i_names(list3_fac), vec3_char)
})


test_that("spectrolab:::i_names is given a data.frame with standard subset", {
    expect_equal(spectrolab:::i_names(df3[ , 1]), vec3_char)
    expect_equal(spectrolab:::i_names(df3[ , 2]), as.character(vec3_num))
    expect_equal(spectrolab:::i_names(df3[ , 3]), vec3_char)
})

test_that("spectrolab:::i_names throws if given a data.frame with no drop subset", {
    expect_error(spectrolab:::i_names(df3[ , 1, drop = F]))
    expect_error(spectrolab:::i_names(df3[ , 2, drop = F]))
    expect_error(spectrolab:::i_names(df3[ , 3, drop = F]))
})


test_that("spectrolab:::i_names throws if given a data.frame with no subset", {
    expect_error(spectrolab:::i_names(df3))
    expect_error(spectrolab:::i_names(df3))
    expect_error(spectrolab:::i_names(df3))
})

test_that("spectrolab:::i_names is given an object of the right length", {
    expect_equal(spectrolab:::i_names(vec3_char, nsample = 3), vec3_char)
    expect_equal(spectrolab:::i_names(list3_fac, nsample = 3), vec3_char)
})

test_that("spectrolab:::i_names throws if given an object of the wrong length", {
    expect_error(spectrolab:::i_names(vec3_char, nsample = 5))
    expect_error(spectrolab:::i_names(list3_fac, nsample = 2))
})