tests/testthat/test-checkwkt.R

In biodiversitydata-se/SBDI4R: Swedish Biodiversity Data Infrastructure Data and Resources in R

context("Test check_wkt function")

test_that("check_wkt generally works as expected", {
        expect_false(SBDI4R:::check_wkt(""))
        expect_error(SBDI4R:::check_wkt(1))
        expect_true(SBDI4R:::check_wkt("POLYGON((154 -43.74,154 -9,112.9 -9,112.9 -43.74,154 -43.74))"))
    })

test_that("check_wkt copes with extra whitespaces", {
        ## whitespace after commas
        expect_true(SBDI4R:::check_wkt("POLYGON((154 -43.74, 154 -9, 112.9 -9, 112.9 -43.74, 154 -43.74))"))
        ## whitespace before ((
        expect_true(SBDI4R:::check_wkt("POLYGON ((154 -43.74, 154 -9, 112.9 -9, 112.9 -43.74, 154 -43.74))"))

        ## these ones fail: not sure if they are actually valid WKT or not
        ## whitespace before commas
        #expect_true(SBDI4R:::check_wkt("POLYGON((154 -43.74 , 154 -9, 112.9 -9, 112.9 -43.74, 154 -43.74))"))
        ## whitespace after ((
        #expect_true(SBDI4R:::check_wkt("POLYGON(( 154 -43.74, 154 -9, 112.9 -9, 112.9 -43.74, 154 -43.74))"))
        ## whitespace before ))
        #expect_true(SBDI4R:::check_wkt("POLYGON((154 -43.74, 154 -9, 112.9 -9, 112.9 -43.74, 154 -43.74  ))"))
    })

test_that("check_wkt arguments in SBDI4R package match arguments in ALA4R package", {
    expect_named(formals(SBDI4R:::check_wkt),names(formals(ALA4R:::check_wkt)),ignore.order = TRUE)
  })