From 23cafb6b676e5779982b20ebb6bad4c996719ace Mon Sep 17 00:00:00 2001
From: Diego H <diego.hernangomezherrero@gmail.com>
Date: Mon, 26 Aug 2024 09:35:31 +0200
Subject: [PATCH] Add tests

---
 codemeta.json                                 |   2 +-
 tests/testthat/_snaps/esp_getTiles/opaque.png | Bin 0 -> 702 bytes
 tests/testthat/_snaps/esp_getTiles/transp.png | Bin 0 -> 530 bytes
 tests/testthat/test-esp_getTiles.R            |  74 +++++++++---------
 tests/testthat/test-esp_get_munic.R           |   3 +-
 5 files changed, 39 insertions(+), 40 deletions(-)
 create mode 100644 tests/testthat/_snaps/esp_getTiles/opaque.png
 create mode 100644 tests/testthat/_snaps/esp_getTiles/transp.png

diff --git a/codemeta.json b/codemeta.json
index 38bf2501..b6c65d12 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -245,7 +245,7 @@
   "applicationCategory": "cartography",
   "isPartOf": "https://ropenspain.es/",
   "keywords": ["rOpenSpain", "tiles", "r", "maps", "spatial", "rstats", "r-package", "municipalities", "Spain", "gisco", "provinces", "ign", "administrative-boundaries", "ccaa", "static-tiles", "spain", "cran", "ropenspain", "ggplot2", "gis"],
-  "fileSize": "2437.14KB",
+  "fileSize": "2436.708KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",
diff --git a/tests/testthat/_snaps/esp_getTiles/opaque.png b/tests/testthat/_snaps/esp_getTiles/opaque.png
new file mode 100644
index 0000000000000000000000000000000000000000..3e6572b6961fa6a4ef53703c352d1b0eadd6691a
GIT binary patch
literal 702
zcmds#T}x8|0EUkX#VjGZh*+?43@f9I2u7Is!5MQT2PemtiaM7J#6`oU%+9uO#@b3L
z2jbKfvdwnUHjsH?DW=uQjgnFVD-Z%1=C%^&bj@UM>u+@NywCds9!nJ^&duTG5CoAc
zsUWM<4*Vl~UwVg4jh?jDsw!y_I2>eUfyV=%4}k#r`6w)eP>7-;P!yz6&@^gm(a-?7
z90~<mTF}~xwl=6#P^+QQprZp?ExNkEFwp6s*TY~ycQ=ei^z^`Fg4qm<1--rK>qCD(
ztX2#TVrU2>BN!cp!vUugE*Hke;C92~f!7PaACr@qp2qAf=H@Uzk3ayyAQl#|xQL}C
zEH5JzLO6^_1korqHn6#gSPWZRh{v(BgG2(!B=+`@N&y(yf89+G8CD5dMr-XqKZ>h4
z8HY-xAB;y!)#sZz2c0(7&VEjmJjy(&ZeBkgfk-CXe%5p@C3*46@ZEj5{A%{uyor0C
z{<jljid`#TO2RkSnOlvdT^ubI-`-7h-c=Iq)~1JFr&i3tU({Ri_(aVaHvT@O)c=_I
zJ*-;edIyw8PCR*YjaK9-1n>Ah$K|?Htem`XMN@CHP4R3GRxciS+}X}ehALK1U;3kC
vDhrNnv*vGQH)ihmX`k@^^YNEYGXsfT4pUGQt(U#Fr-LLUB8v2t%Z+~l|Hxk7

literal 0
HcmV?d00001

diff --git a/tests/testthat/_snaps/esp_getTiles/transp.png b/tests/testthat/_snaps/esp_getTiles/transp.png
new file mode 100644
index 0000000000000000000000000000000000000000..565ef3ac781a78f8e29bb5e62adbcf708a1a8ada
GIT binary patch
literal 530
zcmeAS@N?(olHy`uVBq!ia0vp^CqS5k8A#4*i(3Pv5(0ceT>mpL{O9BQFCg$=LE*oS
z&VN0<{{{yCZEXJA+WvQN`0wTQKOo?LM8yA?nEwe0|5H-_7Zm(2Df!>f@V~3;|C~Ah
zSFirRapV8}`~M$5{{O~}|M%|wzkmP#<H!G>KK=jl<^TWxSGsLq$iTpu>*?YcQZeW4
zg}XtA3<Mk=PR$Tmv83sN{=47%RW)lF^<`{J&&~AN?V10{^wWHi`r5|%UL3lLTUss%
zIe8B=#tHpxZ?mgq_bq$=x#m;d+-K)^a-7JnJX33zdhc2K{b?U9T&CIZKV7!}RPCMI
zw#PyW@_*;QFP^@0R=%~{5tFsaXCl5APSxM7>agis=;p7_D{smA<yuu{SDv`_YMEV%
ewJy`AwR*1U&t^qFE_(@#WCl-HKbLh*2~7Y|`sZH&

literal 0
HcmV?d00001

diff --git a/tests/testthat/test-esp_getTiles.R b/tests/testthat/test-esp_getTiles.R
index d07f6f6a..464dcb8c 100644
--- a/tests/testthat/test-esp_getTiles.R
+++ b/tests/testthat/test-esp_getTiles.R
@@ -88,16 +88,14 @@ test_that("tiles online", {
     type = "IGNBase.Orto"
   ))
 
-  # No working well
-  #
-  #   expect_message(esp_getTiles(poly,
-  #     type = "RedTransporte.Carreteras",
-  #     verbose = TRUE, mask = TRUE
-  #   ))
-  # expect_message(esp_getTiles(poly,
-  #   type = "RedTransporte.Carreteras",
-  #   verbose = TRUE, mask = TRUE
-  # ))
+  expect_message(esp_getTiles(poly,
+    type = "PNOA",
+    verbose = TRUE, mask = TRUE
+  ))
+  expect_message(esp_getTiles(poly,
+    type = "PNOA",
+    verbose = TRUE, mask = TRUE
+  ))
 
 
   # Try with jpg
@@ -116,19 +114,19 @@ test_that("tiles online", {
   expect_s4_class(s, "SpatRaster")
 
   # Check layers
-  # n <- expect_silent(esp_getTiles(poly,
-  #   type = "RedTransporte.Carreteras"
-  # ))
-  #
-  #
-  # expect_equal(terra::nlyr(n), 4)
-  #
-  # opaque <- expect_silent(esp_getTiles(poly,
-  #   type = "RedTransporte.Carreteras",
-  #   transparent = FALSE
-  # ))
-
-  # expect_equal(terra::nlyr(opaque), 3)
+  n <- expect_silent(esp_getTiles(poly,
+    type = "Catastro"
+  ))
+
+
+  expect_equal(terra::nlyr(n), 4)
+
+  opaque <- expect_silent(esp_getTiles(poly,
+    type = "Catastro",
+    transparent = FALSE
+  ))
+
+  expect_equal(terra::nlyr(opaque), 3)
 
   # Run only locally
   skip_on_ci()
@@ -154,8 +152,8 @@ test_that("tiles online", {
 
 
 
-  # expect_snapshot_file(save_png(opaque), "opaque.png")
-  # expect_snapshot_file(save_png(n), "transp.png")
+  expect_snapshot_file(save_png(opaque), "opaque.png")
+  expect_snapshot_file(save_png(n), "transp.png")
   expect_snapshot_file(save_png(s), "silent.png")
   expect_snapshot_file(save_png(p), "point.png")
   expect_snapshot_file(save_png(sfc), "sfc.png")
@@ -207,19 +205,19 @@ test_that("tiles options", {
   skip_on_cran()
   skip_if_offline()
 
-  poly <- esp_get_capimun(munic = "^Toledo", epsg = 3857)
-  poly <- sf::st_buffer(poly, 20)
-
-  # tile2 <- esp_getTiles(poly,
-  #   type = "RedTransporte.Carreteras",
-  #   options = list(
-  #     version = "1.3.0",
-  #     crs = "EPSG:25830",
-  #     format = "image/jpeg"
-  #   )
-  # )
-  #
-  # expect_s4_class(tile2, "SpatRaster")
+  poly <- esp_get_capimun(munic = "^Santiago de compos", epsg = 3857)
+  poly <- sf::st_buffer(poly, 2000)
+
+  tile2 <- esp_getTiles(poly,
+    type = "CaminoDeSantiago",
+    options = list(
+      version = "1.3.0",
+      crs = "EPSG:25830",
+      format = "image/jpeg"
+    )
+  )
+
+  expect_s4_class(tile2, "SpatRaster")
 
   # Known problem on SSH certificate of catastro on ci
   skip_on_ci()
diff --git a/tests/testthat/test-esp_get_munic.R b/tests/testthat/test-esp_get_munic.R
index 667d4010..34e2e9bd 100644
--- a/tests/testthat/test-esp_get_munic.R
+++ b/tests/testthat/test-esp_get_munic.R
@@ -21,7 +21,8 @@ test_that("munic local", {
   skip_if_gisco_offline()
 
   expect_silent(esp_get_munic(year = 2013, region = "Alava"))
-  expect_silent(esp_get_munic(year = 2017, region = "Alava"))
+  a2 <- esp_get_munic(year = 2018, region = "Alava")
+  expect_s3_class(a2, "sf")
 })
 
 # SIANE