tests/testthat/test-pof_future_submarine_cables_30_60_kv_oil.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("Future Probability of Failure for Submarine cables 30 60 kv oil")

test_that("pof_future_submarine_cables_30_60kv_oil", {

  res <-  pof_future_submarine_cables_30_60kv_oil(
     utilisation_pct = "Default",
     operating_voltage_pct = "Default",
     topography = "Default",
     sitution = "Default",
     wind_wave = "Default",
     intensity = "Default",
     landlocked = "no",
     sheath_test = "Default",
     partial_discharge = "Default",
     fault_hist = "Default",
     condition_armour = "Default",
   age = 10,
   reliability_factor = "Default",
   k_value = 0.0202,
   c_value = 1.087,
   normal_expected_life = 60,
   simulation_end_year = 100)

  expected_value <- readRDS(system.file("testdata/pof_future_submarine_cables_30_60kv_oil.rds", package =
                                          "CNAIM"))

  expect_equal(res, expected_value)

})