tests/testthat/test-team_1.R

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

context("test-team_1")

test_that("team_1 works", {

  # test the file path
  datapath <- system.file("extdata", "gadm36_AUS_shp/gadm36_AUS_1.shp", package = "STAT585.Lab3.Group8.2019")
  expe <- team_1(datapath, 0.01)

  #Do not have a correct file
  expect_error(team_1(-1, 0.01))
  expect_error(team_1("A", 0.01))
  expect_error(team_1(datapath, tolerance = "a"))

  expect_s3_class(expe, "data.frame")
})