tests/testthat/test-get_angle.R

In cpanse/recmap: Compute the Rectangular Statistical Cartogram

#R

context("get_angle")

test_that("get angle of two map regions", {
  
  expect_true(recmap:::get_angle(x0=0, y0=0, x1=0, y1=1)  / pi == 0)
  expect_true(recmap:::get_angle(x0=0, y0=0, x1=0, y1=-1)  / pi == 1 )
  expect_true(recmap:::get_angle(x0=0, y0=0, x1=1, y1=-1)  / pi == 0.75 )
  expect_true(recmap:::get_angle(x0=0, y0=0, x1=-1, y1=-1)  / pi == -0.75 )
  expect_true(recmap:::get_angle(x0=0, y0=0, x1=-1, y1=1)  / pi == -0.25 )
})