tests/testthat/test_1-0-0-major-bearing.R

context("Bearing")

test_that("Simple bearing", {
  expect_equal(bearing(-33, 151, -32, 151), 0)
})

Try the hutils package in your browser

Any scripts or data that you put into this service are public.

hutils documentation built on Nov. 1, 2018, 5:05 p.m.