tests/testthat/test-n_cof_excl_ehv_132kv_tf.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("Network cost of Failure")

test_that("n_cof_excl_ehv_132kv_tf", {
  expect_equal(n_cof_excl_ehv_132kv_tf(asset_type_ncf = "6.6/11kV Transformer (GM)",
                                       no_customers = 750,
                                       kva_per_customer = 51) %>% round(1), 407156.2)
})