tests/testthat/test-cof_ehv_switchgear.R

In CNAIM: Common Network Asset Indices Methodology (CNAIM)

library(testthat)
library(CNAIM)

context("COF:Financial EHV Switchgear")

test_that("33kV RMU", {
  res <- financial_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
                                      access_factor_criteria = "Type A")

  expected_value <- 25347

  expect_equal(res, expected_value)
})

context("COF:Financial 132kV CB")

test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
  res <- financial_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
                                      access_factor_criteria = "Type A")

  expected_value <- 81092

  expect_equal(res, expected_value)
})

# ----------------------------------------

context("COF:Safety EHV Switchgear")

test_that("33kV RMU", {
  res <- safety_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
                                   location_risk = "Default",
                                   type_risk = "Default")
  expected_value <- 23502

  expect_equal(res, expected_value)
})

context("COF:Safety 132kV CB")

test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
  res <- safety_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
                                   location_risk = "Default",
                                   type_risk = "Default")
  expected_value <- 36171

  expect_equal(res, expected_value)
})


# ----------------------------------------

context("COF:Environmental EHV Switchgear")

test_that("33kV RMU", {
  res <- environmental_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
                                          type_env_factor = "Oil",
                                          prox_water = 95,
                                          bunded = "Yes")
  expected_value <- 2025.54

  expect_equal(res, expected_value)
})

context("COF:Environmental 132kV CB")

test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
  res <- environmental_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
                                          type_env_factor = "Oil",
                                          prox_water = 95,
                                          bunded = "Yes")
  expected_value <- 8593.62

  expect_equal(res, expected_value)
})

# ----------------------------------------

context("COF:Network EHV switch gear")

test_that("33kV RMU", {
  res <- network_cof_ehv_switchgear(ehv_asset_category = "33kV RMU",
                                          actual_load_mva = 15)
  expected_value <- 7370

  expect_equal(res, expected_value)
})


context("COF:Network 132kV CB")

test_that("132kV CB (Air Insulated Busbars)(ID) (GM)", {
  res <- network_cof_ehv_switchgear(ehv_asset_category = "132kV CB (Air Insulated Busbars)(ID) (GM)",
                                    actual_load_mva = 15) %>% round(2)
  expected_value <- 28850.06

  expect_equal(res, expected_value)
})