tests/testthat/test.lineLocations.R

In precisePlacement: Suite of Functions to Help Get Plot Elements Exactly Where You Want Them

context('Test lineLocations')

test_that('We get errors for invalid inputs', {
    
    expect_error(lineLocations())
    expect_error(lineLocations(NULL))
    expect_error(lineLocations(NULL, NULL))
    expect_error(lineLocations(1, NULL))
    expect_error(lineLocations(NULL, 1))
    expect_error(lineLocations(0, 1))
    expect_error(lineLocations(1, numeric(0)))
    expect_error(lineLocations(1:2, 1))
    
})