tests/testthat/test-data-repository.R

In Open-Systems-Pharmacology/OSPSuite-R: R package to manipulate OSPSuite Models

# DataRepository

obsDataFile <- getTestDataFilePath("obs_data.pkml")
obsData <- .loadDataRepositoryFromPKML(obsDataFile)

test_that("it can set the name of the data repository", {
  obsData$name <- "toto"
  expect_equal(obsData$name, "toto")
})

test_that("it can return the base grid", {
  expect_true(!is.null(obsData$baseGrid))
})

test_that("it can return the value of the base grid as a numeric array", {
  expect_length(obsData$baseGrid$values, 7)
})

test_that("it returns the same reference to columns once instantiated", {
  col2 <- obsData$columns[[2]]
  expect_identical(obsData$columns[[2]], col2)
})

test_that("it returns the same reference to base grids once instantiated", {
  expect_identical(obsData$columns[[1]], obsData$baseGrid)
})

test_that("it retrives the meta data associated with the data repository", {
  metaData <- obsData$metaData
  expect_equal(metaData$DoubleValue, 5.0)
  expect_equal(metaData$IntegerValue, 4)
  expect_equal(metaData$StringValues, "hello")
})

test_that("it can print a data repository", {
  expect_error(capture.output(print(obsData)), regexp = NA)
})