tests/testthat/test-grts.line.R

In tmcd82070/SDraw: Spatially Balanced Samples of Spatial Objects

# test-grts.line.R
context("Testing grts.line()")


# create spatial lines object
# create some arbitrary lines
l1 <- cbind(c(1, 2, 3), c(3, 2, 2))
l2 <- cbind(c(1, 2, 3), c(1, 1.5, 1))

# creat some formal class lines with these lines
Sl1 <- Line(l1)
Sl2 <- Line(l2)

# assign arbitrary ID's to these formal class lines
S1 <- Lines(list(Sl1), ID = "a")
S2 <- Lines(list(Sl2), ID = "b")

# create a formal class SpatialLines object
Sl <- SpatialLines(list(S1,S2))


test_that("x must be a SpatialLines object", {
  # make sure error catch does it's job
  capture.output(expect_error(grts.line(1, 1, 1), "Must call grts.line with a SpatialLines object."))
})

test_that("check for output column name", {
  # run SpatialLines object through function, should also improve coverage in grts.equi()
  capture.output(expect_named(grts.line(Sl, 4, 1), c("sampleID", "pointType", "geometryID")))
})

test_that("check for output", {
  capture.output(expect_identical((grts.line(Sl, 1, 0)$sampleID), "Site-1"))
  capture.output(expect_identical((grts.line(Sl, 1, 0)$pointType), "Sample"))
})