From 92d1d382967397d670ec93a18e64cd41bcee947f Mon Sep 17 00:00:00 2001 From: meetagrawal09 Date: Tue, 26 Sep 2023 22:41:09 +0530 Subject: [PATCH] moved test_that block --- .../test.download.AmerifluxLBL.R | 32 ++++---- .../integrationTests/test.download.ERA5.R | 74 +++++++++---------- 2 files changed, 53 insertions(+), 53 deletions(-) diff --git a/modules/data.atmosphere/inst/integrationTests/test.download.AmerifluxLBL.R b/modules/data.atmosphere/inst/integrationTests/test.download.AmerifluxLBL.R index e46d1d4830f..659f016e5dd 100644 --- a/modules/data.atmosphere/inst/integrationTests/test.download.AmerifluxLBL.R +++ b/modules/data.atmosphere/inst/integrationTests/test.download.AmerifluxLBL.R @@ -31,23 +31,23 @@ test_download_AmerifluxLBL <- function(start_date, end_date, sitename, lat.in, l lon.in = lon.in, sitename = sitename ) - }) - - # checking if the file is downloaded - test_that("Downloaded files are present at the desired location", { - expect_true(file.exists(paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv"))) - }) - test_that("Downloaded data files have the right format", { - firstline <- system(paste0("head -4 ", paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv")), intern = TRUE) - lastline <- system(paste0("tail -1 ", paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv")), intern = TRUE) - - # checking if first line of CSV has the sitename - expect_true(grepl(sitename, firstline[1])) - - # fourth and last row checked to contain non-alphabetical data since these are used to verify start and end dates - expect_false(grepl("[A-Za-z]", firstline[4])) - expect_false(grepl("[A-Za-z]", lastline[1])) + # checking if the file is downloaded + test_that("Downloaded files are present at the desired location", { + expect_true(file.exists(paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv"))) + }) + + test_that("Downloaded data files have the right format", { + firstline <- system(paste0("head -4 ", paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv")), intern = TRUE) + lastline <- system(paste0("tail -1 ", paste0(tmpdir, "/AMF_US-Akn_BASE_HH_6-5.csv")), intern = TRUE) + + # checking if first line of CSV has the sitename + expect_true(grepl(sitename, firstline[1])) + + # fourth and last row checked to contain non-alphabetical data since these are used to verify start and end dates + expect_false(grepl("[A-Za-z]", firstline[4])) + expect_false(grepl("[A-Za-z]", lastline[1])) + }) }) } diff --git a/modules/data.atmosphere/inst/integrationTests/test.download.ERA5.R b/modules/data.atmosphere/inst/integrationTests/test.download.ERA5.R index 90f37c8e0c0..fbcff615fd6 100644 --- a/modules/data.atmosphere/inst/integrationTests/test.download.ERA5.R +++ b/modules/data.atmosphere/inst/integrationTests/test.download.ERA5.R @@ -37,51 +37,51 @@ test_download_ERA5 <- function(start_date, end_date, lat.in, lon.in, product_typ product_types = product_types, reticulate_python = reticulate_python ) - }) - - test_that("All the required files are downloaded and stored at desired location", { - expect_true(file.exists(paste0(tmpdir, "/era5.2m_dewpoint_temperature.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.2m_temperature.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.10m_u_component_of_wind.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.10m_v_component_of_wind.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.surface_pressure.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.surface_solar_radiation_downwards.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.surface_thermal_radiation_downwards.nc"))) - expect_true(file.exists(paste0(tmpdir, "/era5.total_precipitation.nc"))) - }) + + test_that("All the required files are downloaded and stored at desired location", { + expect_true(file.exists(paste0(tmpdir, "/era5.2m_dewpoint_temperature.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.2m_temperature.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.10m_u_component_of_wind.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.10m_v_component_of_wind.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.surface_pressure.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.surface_solar_radiation_downwards.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.surface_thermal_radiation_downwards.nc"))) + expect_true(file.exists(paste0(tmpdir, "/era5.total_precipitation.nc"))) + }) - test_that("All ERA5 data files have the correct variable units", { - nc <- nc_open(paste0(tmpdir, "/era5.2m_dewpoint_temperature.nc")) - expect_equal(nc$var$d2m$units, "K") - nc_close(nc) + test_that("All ERA5 data files have the correct variable units", { + nc <- nc_open(paste0(tmpdir, "/era5.2m_dewpoint_temperature.nc")) + expect_equal(nc$var$d2m$units, "K") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.2m_temperature.nc")) - expect_equal(nc$var$t2m$units, "K") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.2m_temperature.nc")) + expect_equal(nc$var$t2m$units, "K") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.10m_u_component_of_wind.nc")) - expect_equal(nc$var$u10$units, "m s**-1") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.10m_u_component_of_wind.nc")) + expect_equal(nc$var$u10$units, "m s**-1") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.10m_v_component_of_wind.nc")) - expect_equal(nc$var$v10$units, "m s**-1") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.10m_v_component_of_wind.nc")) + expect_equal(nc$var$v10$units, "m s**-1") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.surface_pressure.nc")) - expect_equal(nc$var$sp$units, "Pa") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.surface_pressure.nc")) + expect_equal(nc$var$sp$units, "Pa") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.surface_solar_radiation_downwards.nc")) - expect_equal(nc$var$ssrd$units, "J m**-2") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.surface_solar_radiation_downwards.nc")) + expect_equal(nc$var$ssrd$units, "J m**-2") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.surface_thermal_radiation_downwards.nc")) - expect_equal(nc$var$strd$units, "J m**-2") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.surface_thermal_radiation_downwards.nc")) + expect_equal(nc$var$strd$units, "J m**-2") + nc_close(nc) - nc <- nc_open(paste0(tmpdir, "/era5.total_precipitation.nc")) - expect_equal(nc$var$tp$units, "m") - nc_close(nc) + nc <- nc_open(paste0(tmpdir, "/era5.total_precipitation.nc")) + expect_equal(nc$var$tp$units, "m") + nc_close(nc) + }) }) }