tests/testthat/test-pof_ehv_switchgear.R

library(testthat)
library(CNAIM)

context("POF EHV switchgear")

test_that("33 KV category", {
  res <- pof_ehv_switchgear(
    ehv_asset_category = "33kV RMU",
    placement = "Default",
    number_of_operations = "Default",
    altitude_m = "Default",
    distance_from_coast_km = "Default",
    corrosion_category_index = "Default",
    age = 10,
    observed_condition_inputs =list("external_condition" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "oil_gas" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "thermo_assment" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "internal_condition" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "indoor_env" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "support_structure" = list("Condition Criteria: Observed Condition" = "Default")),
    measured_condition_inputs = list("partial_discharge" = list("Condition Criteria: Partial Discharge Test Results" = "Default"),
                                     "ductor_test" = list("Condition Criteria: Ductor Test Results" = "Default"),
                                     "oil_test" = list("Condition Criteria: Oil Test Results" = "Default"),
                                     "temp_reading" = list("Condition Criteria: Temperature Readings" = "Default"),
                                     "trip_test" = list("Condition Criteria: Trip Timing Test Result" = "Default"),
                                     "ir_test" = list("Condition Criteria: IR Test Results" = "Default" )),
    reliability_factor = "Default") %>% round(5)

  expected_val <- data.frame(pof = 0.0005, chs = 0.74836)

  expect_equal(res, expected_val)
})



test_that("66 KV category", {
  res <- pof_ehv_switchgear(
    ehv_asset_category = "66kV CB (Air Insulated Busbars)(ID) (GM)",
    placement = "Default",
    number_of_operations = "Default",
    altitude_m = "Default",
    distance_from_coast_km = "Default",
    corrosion_category_index = "Default",
    age = 10,
    observed_condition_inputs =list("external_condition" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "oil_gas" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "thermo_assment" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "internal_condition" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "indoor_env" = list("Condition Criteria: Observed Condition" = "Default"),
                                    "support_structure" = list("Condition Criteria: Observed Condition" = "Default")),
    measured_condition_inputs = list("partial_discharge" = list("Condition Criteria: Partial Discharge Test Results" = "Default"),
                                     "ductor_test" = list("Condition Criteria: Ductor Test Results" = "Default"),
                                     "oil_test" = list("Condition Criteria: Oil Test Results" = "Default"),
                                     "temp_reading" = list("Condition Criteria: Temperature Readings" = "Default"),
                                     "trip_test" = list("Condition Criteria: Trip Timing Test Result" = "Default"),
                                     "ir_test" = list("Condition Criteria: IR Test Results" = "Default" )),
    reliability_factor = "Default") %>% round(5)

  expected_val <- data.frame(pof = 0.00118, chs = 0.77916)

  expect_equal(res, expected_val)
})

Try the CNAIM package in your browser

Any scripts or data that you put into this service are public.

CNAIM documentation built on Aug. 31, 2022, 9:13 a.m.