tests/testthat/test_prep_fa.R

In qfasar: Quantitative Fatty Acid Signature Analysis in R

library(qfasar)
context("Test fatty acid preperation")

test_obj <- prep_fa(data.frame(fa = c("use_me", "fa_1", "fa_2", "fa_3"),
                               cc1 = c(0, 0.75, 1.25, 1.00),
                               cc2 = c(1, 1.2, 0.8, 0.9),
                               use_1 = c(0, 1, 1, 0),
                               use_2 = c(1, 1, 1, 0),
                               stringsAsFactors = TRUE))

test_that("Values returned are correct",{
  expect_equivalent(test_obj$cc,
                    c(1.2, 0.8, 0.9))
  expect_equivalent(test_obj$use,
                    c(TRUE, TRUE, FALSE))
})