Add a simple test for #18

ropensci · Nov 9, 2020 · b302019 · b302019
1 parent 84b364b
commit b302019
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(slopes)
+
+test_check("slopes")
diff --git a/tests/testthat/test-slopes.R b/tests/testthat/test-slopes.R
@@ -0,0 +1,6 @@
+test_that("slope_* functions work", {
+  x = c(0, 2, 3, 4, 5, 9)
+  e = c(1, 2, 2, 4, 3, 1) / 10
+  expect_equal(slope_vector(x, e), c(0.05, 0, 0.2, -0.1, -0.05))
+  # expect_equal(slope_distance(x, e), c(0.05, 0, 0.2, -0.1, -0.05))
+})