tests/testthat/test-pof_cables_10kv_oil.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("Cables 10KV oil")

test_that("Cables 10KV oil", {
  res <-  pof_cables_10kv_oil(
     utilisation_pct = 80,
     operating_voltage_pct = "Default",
     sheath_test = "Default",
     partial_discharge = "Default",
     fault_hist = "Default",
     reliability_factor = "Default",
     age = 50,
     k_value = 0.24,
     c_value = 1.087,
     normal_expected_life = 80) %>% round(5)

  expected_val <- data.frame(pof = 0.0211, chs = 2.2379)

  expect_equal(res, expected_val)
})