tests/testthat/test-pof_transformer_132kv.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

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

test_that("pof_transformer_132kv", {
  res <- pof_transformer_132kv(transformer_type = "132kV 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)

})