tests/testthat/test-convenience.R

In fbar: An Extensible Approach to Flux Balance Analysis

context("convenience")

suppressMessages(library('testthat'))
suppressMessages(library('dplyr'))
suppressMessages(library('magrittr'))
suppressMessages(library('purrr'))
suppressMessages(library('stringr'))
suppressMessages(library('tibble'))
suppressMessages(library('tidyr'))
suppressMessages(library('ROI.plugin.ecos'))
suppressMessages(library('fbar'))

data("ecoli_core")

test_that("find_fluxes_df gives sensible result with minimization", {
  evaluated <- find_fluxes_df(ecoli_core)
  
  expect_equal(evaluated %>% select(-flux), ecoli_core)
  expect_true(all(evaluated$flux <= (ecoli_core$uppbnd + 1e-6)))
  expect_true(all(evaluated$flux >= (ecoli_core$lowbnd - 1e-6)))
})

test_that("find_fluxes_df gives sensible result without minimization", {
  evaluated <- find_fluxes_df(ecoli_core, do_minimization = FALSE)
  
  expect_equal(evaluated %>% select(-flux), ecoli_core)
  expect_true(all(evaluated$flux <= (ecoli_core$uppbnd + 1e-6)))
  expect_true(all(evaluated$flux >= (ecoli_core$lowbnd - 1e-6)))
})