tests/testthat/test.R

In justinmooney/ecefR: Convert ECEF to LLA or vice versa

library(ecefR)
context("Number Checking")

test_that("Numbers are correct", {
    ecef <- c(-1472.238, 5005.461, 3692.592)
    lla <- c(35.46943, 106.39, 20.9998)
    expect_equal(xyz2lla(ecef[1], ecef[2], ecef[3]), lla, tolerance = 1e-6)
    expect_equal(lla2xyz(lla[1], lla[2], lla[3]), ecef, tolerance = 1e-6)

    ecef <- c(123, 456, 789)
    lla <- c(60.2444, 74.90448, -5442.65383)
    expect_equal(xyz2lla(ecef[1], ecef[2], ecef[3]), lla, tolerance = 1e-6)
    expect_equal(lla2xyz(lla[1], lla[2], lla[3]), ecef, tolerance = 1e-6)
})