tests/testthat/test-geometric-functions.R

In DillonHammill/CytoExploreR: Interactive Analysis of Cytometry Data

context("Geometric Functions")

## linesIntercept --------------------------------------------------------------

test_that("linesIntercept", {
  expect_equal(linesIntercept(c(0, 0), 
                              c(0, 1), 
                              c(1, 0), 
                              c(1, 1)), 
               c(Inf, Inf))
  expect_equal(linesIntercept(c(0, 0), 
                              c(1, 1), 
                              c(0, 1), 
                              c(1, 0), 
                              interior.only = TRUE), 
               c(0.5, 0.5))
  expect_equal(linesIntercept(c(2, 2), 
                              c(4, 4), 
                              c(6, 8), 
                              c(10, 2), 
                              interior.only = TRUE), 
               c(NA, NA))
})