scaffold, tests

mdsumner · Sep 2, 2016 · d78f109 · d78f109
1 parent dbd299c
commit d78f109
Show file tree

Hide file tree

Showing 6 changed files with 24 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,4 +18,5 @@ Imports:
 RoxygenNote: 5.0.1
 URL: https://github.com/mdsumner/spex
 BugReports: https://github.com/mdsumner/spex/issues
-Suggests: covr
+Suggests: covr,
+    testthat
diff --git a/NAMESPACE b/NAMESPACE
@@ -9,4 +9,3 @@ importFrom(raster,crs)
 importFrom(raster,extent)
 importFrom(sp,SpatialPolygonsDataFrame)
 importFrom(stats,setNames)
-importMethodsFrom(raster,as)
diff --git a/R/spex.R b/R/spex.R
@@ -19,7 +19,6 @@
 #' @param ... arguments for methods
 #' @param crs a projection string
 #' @importFrom methods as
-#' @importMethodsFrom raster as
 #' @importFrom raster crs<- crs extent
 #' @importFrom sp SpatialPolygonsDataFrame
 #' @importFrom stats setNames
@@ -79,5 +78,5 @@ spex.default <- function(x, byid = FALSE, .id, ...) {
 spex.Extent <- function(x, crs, ...) {
   p <- as(extent(x), 'SpatialPolygons')
   crs(p) <- crs
-  p
+  spex(p, ...)
 }
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(spex)
+
+test_check("spex")
diff --git a/tests/testthat/test-spex-any.R b/tests/testthat/test-spex-any.R
@@ -0,0 +1,7 @@
+context("spex-any")
+library(testthat)
+test_that("it's polygons with crs", {
+  expect_that(spex(lux), is_a("SpatialPolygonsDataFrame"))
+  expect_that(sp::is.projected(spex(lux)), is_false())
+  expect_that(names(spex(lux, .id = "thing")), equals("thing"))
+  })
diff --git a/tests/testthat/test-spex-extent.R b/tests/testthat/test-spex-extent.R
@@ -0,0 +1,10 @@
+context("spex-extent")
+
+test_that("extent and crs works", {
+  expect_that(spex(raster::extent(lux), raster::crs(lux)), is_a("SpatialPolygonsDataFrame"))
+})
+
+
+test_that("by id is not implemented", {
+  expect_that(spex(lux, byid = TRUE), throws_error("implemented"))
+})