tests/testthat/test-parse_parts.R

In parzer: Parse Messy Geographic Coordinates

context("parse_parts_lat")
test_that("parse_parts_lat works", {
  skip_on_cran()
  aa <- parse_parts_lat("45N54.2356")

  expect_is(aa, "data.frame")
  expect_type(aa$deg, "integer")
  expect_type(aa$min, "integer")
  expect_type(aa$sec, "double")

  expect_equal(NROW(aa), 1)

  expect_equal(aa$deg, 45)
  expect_equal(aa$min, 54)
  expect_equal(round(aa$sec, 2), 14.14)
})

test_that("parse_parts_lat - fails well", {
  skip_on_cran()
  expect_error(parse_parts_lat(), "argument \"str\" is missing")
  expect_error(parse_parts_lat(mtcars), "str must be of class")
})


context("parse_parts_lon")
test_that("parse_parts_lon works", {
  skip_on_cran()
  aa <- parse_parts_lon("45W54.2356")

  expect_is(aa, "data.frame")
  expect_type(aa$deg, "integer")
  expect_type(aa$min, "integer")
  expect_type(aa$sec, "double")

  expect_equal(NROW(aa), 1)

  expect_equal(aa$deg, -45)
  expect_equal(aa$min, 54)
  expect_equal(round(aa$sec, 2), 14.14)
})

test_that("parse_parts_lon - fails well", {
  skip_on_cran()
  expect_error(parse_parts_lon(), "argument \"str\" is missing")
  expect_error(parse_parts_lon(mtcars), "str must be of class")
})