resolve codecov issues

R/historie.R

@@ -2,7 +2,7 @@
 #'
 #' Function returning historical admin areas of the Czech Republic, together with relevant census data as specified by parameter  **era**.
 #'
-#' The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at <https://cuni.maps.arcgis.com/home/item.html?id=c2f19cd1146747a9a8daf5b900e7747b>, or the original journal article at <https://doi.org/10.14712/23361980.2015.93>.
+#' The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at <https://cuni.maps.arcgis.com/home/item.html?id=c2f19cd1146747a9a8daf5b900e7747b>, or the original journal article at \doi{https://doi.org/10.14712/23361980.2015.93}.
 #'
 #' Of notable interest is the 1930 census, which was the last before WWII - and thus the last one to include Czechoslovak citizens of German ethnicity.
 #'

tests/testthat/test-1-historie.R

@@ -72,8 +72,8 @@ test_that("historie platí", {
 
 test_that("chyby zadání", {
 
-  expect_error(geomorfo("bflm")) # neznámá úroveň
-  expect_error(geomorfo()) # povinný argument bez defaultu
+  expect_error(historie("bflm")) # neznámá úroveň
+  expect_error(historie()) # povinný argument bez defaultu
 
 })
 

tests/testthat/test-2-code-internal.R

@@ -39,3 +39,23 @@ test_that("očekávané chyby", {
 })
 
 
+test_that("envir variable", {
+
+  skip_on_cran()
+
+  envir_backup <- Sys.getenv("RCZECHIA_HOME") # uložit systémovou hodnotu do zálohy
+
+  expect_true(set_home((tempdir()))) # nastavení na tempdir projde
+
+  expect_warning(set_home("bflm"), regexp = "path") # neexistiující cesta
+
+  expect_true(set_home((tempdir()))) # nastavení na tempdir projde
+
+  expect_true(unset_home()) # vysazení projde
+
+  Sys.setenv("RCZECHIA_HOME" = envir_backup) # obnovit hodnotu ze zálohy
+
+})
+
+
+