tests/testthat/test_get_Enertia_Lineage.R

In Hilcorp-Reserves/Reserves.Util: Aries and Reserves Utilities

##############################################  Tests for get_Enertia_Production  #########################################

#Create ODBC Connection to sql server
dbhandle_enertia_01 = RODBC::odbcDriverConnect(paste0('driver={SQL Server};server=', "ENERTIA01b", ';database=', "HEC_Enertia", ';trusted_connection=true'))
asset_team = c("RMR", "WLA", "STX", "SJE")
field_code = c("49.1018", "42.1049", "50.0842", "30.1040")
completion_code = c("30.1037.0919.01", "42.0439.0538.00", "42.0687.0050.00", "42.0980.0003.00", "17.0430.0015.00")
API = c("4904120894", "4904120898", "4902322157")

test_that("The output is of type data.frame", {


  expect_equal(object = class(get_Enertia_Lineage_by_API12(API12 = API)),
               expected = "data.frame")
  expect_equal(object = class(get_Enertia_Lineage_by_Asset_Team(asset_team_code = asset_team)),
               expected = "data.frame")
  expect_equal(object = class(get_Enertia_Lineage_by_Enertia_Code(enertia_code = completion_code)),
               expected = "data.frame")
  expect_equal(object = class(get_Enertia_Lineage_by_Field_Code(field_code = field_code)),
               expected = "data.frame")

})

test_that("The columns are ordered correctly", {

  expect_equal(object = names(get_Enertia_Lineage_by_API12(API = API)),
               expected = c("AssetTeamCode", "AssetTeam", "WellBoreCode", "WellBoreName", "WellCompCode", "WellCompName", "APINumber", "Reservoir", "FieldName",
                            "FieldCode", "SubFieldName", "SubFieldCode", "FacPlatCode", "FacPlatName", "OperatorName", "State", "County"))
  expect_equal(object = names(get_Enertia_Lineage_by_Asset_Team(asset_team_code = asset_team)),
               expected = c("AssetTeamCode", "AssetTeam", "WellBoreCode", "WellBoreName", "WellCompCode", "WellCompName", "APINumber", "Reservoir", "FieldName",
                            "FieldCode", "SubFieldName", "SubFieldCode", "FacPlatCode", "FacPlatName", "OperatorName", "State", "County"))
  expect_equal(object = names(get_Enertia_Lineage_by_Enertia_Code(enertia_code = completion_code)),
               expected = c("AssetTeamCode", "AssetTeam", "WellBoreCode", "WellBoreName", "WellCompCode", "WellCompName", "APINumber", "Reservoir", "FieldName",
                            "FieldCode", "SubFieldName", "SubFieldCode", "FacPlatCode", "FacPlatName", "OperatorName", "State", "County"))
  expect_equal(object = names(get_Enertia_Lineage_by_Field_Code(field_code = field_code)),
               expected = c("AssetTeamCode", "AssetTeam", "WellBoreCode", "WellBoreName", "WellCompCode", "WellCompName", "APINumber", "Reservoir", "FieldName",
                            "FieldCode", "SubFieldName", "SubFieldCode", "FacPlatCode", "FacPlatName", "OperatorName", "State", "County"))

})



# Close all database connections prior to ending testing.
RODBC::odbcCloseAll()