tests/testthat/test-team_7.R

context("test-team_7")

test_that("team_7() works", {
  expect_error(team_1(1:3))
  expect_error(team_1(file="abc"))
  expect_error(team_1(file="./data/gadm36_AUS_shp/gadm36_AUS_1.shp",
                      tolerance="a"))

})
jzemmels/lab3Group9 documentation built on May 9, 2019, 1:10 a.m.