tests/testthat/test-pof_transformer_33_66kv.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("Current Probability of Failure for a 66kV Transformer (GM)")

test_that("pof_transformer_33_66kv", {
  res <- pof_transformer_33_66kv(transformer_type = "66kV Transformer (GM)",
                                    year_of_manufacture = 1980,
                                    age_tf=43,
                                    age_tc=43) %>% round(6)

  expected_val <- data.frame(pof = 0.012446, chs = 3.931585)

  expect_equal(res, expected_val)

})