tests_in_progress/test-ssimEnvironment.R

In syncrosim/rsyncrosim: The R Interface to 'SyncroSim'

### ApexRMS
### 2024-10-08
### Below script tests the following functions:
### * ssimEnvironment

# load packages
library(rsyncrosim)
library(testthat)

# Setup ----
myLibraryName <- file.path(tempdir(), "empty")
mySession <- session("C:/Program Files/SyncroSim Studio")
myLibrary <- ssimLibrary(name = myLibraryName, session = mySession)
myProject <- project(myLibrary, project = "Definitions")
myScenario <- scenario(myProject, scenario = "My Scenario")


test_that("ssimEnvironment works", {
  expect_error(ssimEnvironment(), NA)
  expect_type(ssimEnvironment(), "list")
  expect_s3_class(ssimEnvironment(), "data.frame")
})

test_that("ssimEnvironment works", {
  expect_error(ssimEnvironment(myScenario))
  expect_error(ssimEnvironment(myLibrary))
  expect_error(ssimEnvironment(myProject))
  expect_error(ssimEnvironment(mySession))
  expect_error(ssimEnvironment("myScenario"))
  expect_error(ssimEnvironment(1))
})