tests/testthat/test-utilities.R

In EnergyEconomyDecoupling/MWTools: Functions For Calculation of Muscle Work Within the PSUT Framework

test_that("fao_concordance_path() works", {

  test_path <- fao_concordance_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "FAO_ISO_MW_Mapping.xlsx")))
})

test_that("amw_analysis_data_path() works", {

  test_path <- amw_analysis_data_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "amw_analysis_data.xlsx")))
})

test_that("amw_test_data_path() works", {

  test_path <- amw_test_data_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "test_amw_data.csv")))
})

test_that("hmw_analysis_data_path() works", {

  test_path <- hmw_analysis_data_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "hmw_analysis_data.xlsx")))
})

test_that("ilo_working_hours_test_data_path() works", {

  test_path <- ilo_working_hours_test_data_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "test_ilo_working_hours_data.csv")))
})

test_that("ilo_employment_test_data_path() works", {

  test_path <- ilo_employment_test_data_path()
  expect_true(endsWith(test_path, file.path("extdata",
                                            "test_data",
                                            "test_ilo_employment_data.csv")))
})