#70

jakobbossek · Apr 29, 2019 · 85a5064 · 85a5064
1 parent 84abbd1
commit 85a5064
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/testthat/test_approximateRefPoints.R b/tests/testthat/test_approximateRefPoints.R
@@ -0,0 +1,15 @@
+context("ref points")
+
+test_that("approximate ref points", {
+  # setup
+  A = data.frame(badName = c("Test", "Test2"), f1 = c(1,2), f2 = c(3,4))
+  B = data.frame(prob = c("Test", "Test2"), f1 = c(1,2), f2 = c(3,4))
+
+  # passing dataframe with bad structure (wrong column name)
+  expect_error(approximateRefPoints(A))
+
+  # with correctly structured set
+  ref = approximateRefPoints(B)
+  expect_list(ref, len = 2)
+
+})