tests/testthat/test-pof_future_cables_10kv_pex.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("Future Probability of Failure for Cables104 KV pex")

test_that("pof_future_cables_10kv_pex", {

  res <-   pof_future_cables_10kv_pex(
    utilisation_pct = 80,
    operating_voltage_pct = 60,
    sheath_test = "Default",
    partial_discharge = "Default",
    fault_hist = "Default",
    reliability_factor = "Default",
    age = 50,
    k_value = 0.0658,
    c_value = 1.087,
    normal_expected_life = 80,
    simulation_end_year = 100)



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

  expect_equal(res, expected_value)

})