tests/testthat/test-team_12.R

In stharms/stat585Lab3Group10: Format Spatial Geometry Files

context("test-team_12")

test_that("only takes correct shapefiles", {
  expect_error(team_12(ozbig, tolerance = 0))
  expect_error(team_12(ozbig, tolerance = TRUE))
  expect_error(team_12(ozbig,fileread=T))
  expect_error(team_12(file='./man/makedata.Rd'))
})

test_that("find geometry", {
  expect_error(team_12(list(ozbig[[1]],ozbig[[2]]),fileread=F))
})

test_that("output is a data frame",{
  expect_s3_class(team_12(ozbig,fileread=F), "data.frame")
})