Skip to content

Commit

Permalink
update test in tile_download.R
Browse files Browse the repository at this point in the history
  • Loading branch information
kadyb authored Jan 6, 2025
1 parent f95cd24 commit 567f690
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions tests/testthat/test-tile_download.R
Original file line number Diff line number Diff line change
Expand Up @@ -5,12 +5,10 @@ base_URL = "https://opendata.geoportal.gov.pl/"

sample_ortho = paste0(base_URL, "ortofotomapa/41/41_3756_N-33-130-D-b-2-3.tif")
ortho = data.frame(URL = sample_ortho, filename = "sample_ortho",
sha1 = "312c81963a31e268fc20c442733c48e1aa33838f",
stringsAsFactors = FALSE)
stringsAsFactors = FALSE)

sample_DEM = paste0(base_URL, "NumDaneWys/NMT/73556/73556_1002897_N-33-130-D-b-2-3.asc")
DEM = data.frame(URL = sample_DEM, filename = "sample_DEM",
sha1 = "392a0edf763e38fa1b7b6067ac1b080c47374dd2",
stringsAsFactors = FALSE)

# ORTHO
Expand Down Expand Up @@ -47,7 +45,7 @@ test_that("check file ext", {


# test stops
df = data.frame("URL" = integer(), "filename" = integer(), "sha1" = integer())
df = data.frame("URL" = integer(), "filename" = integer())

test_that("check stops", {
expect_error(tile_download(df),
Expand Down

0 comments on commit 567f690

Please sign in to comment.