tests/testthat/test-team_10.R

In EBlagg/STAT585.Lab3.Group8.2019: This is for lab (Title Case)

context("test-team_10")

test_that("team_10 works", {
  # test the file path
  datapath <- system.file("extdata", "gadm36_AUS_shp/gadm36_AUS_1.shp", package = "STAT585.Lab3.Group8.2019")

  #Do not have a correct file
  expect_error(team_10(-1, 0.01))
  expect_error(team_10("A", 0.01))

  #The tolerance number is not between (0,1)
  expect_error(team_10(datapath, tolerance = -1))

})