flightpathr

commit 5cda2e02278ac2ecfaa0d7765d15cc6fb707e0d1
parent d3ff4809f196e6834cf5cc82707feda3e710d363
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Wed, 21 Sep 2016 13:37:02 -0400

Testing is.flighttrajectory()

Diffstat:
M
tests/testthat/test_createTrajectory.R
 | 
5
+++++

1 file changed, 5 insertions(+), 0 deletions(-)
diff --git a/tests/testthat/test_createTrajectory.R b/tests/testthat/test_createTrajectory.R
@@ -45,3 +45,8 @@ test_that("Input lengths are checked", {
   expect_equal(createTrajectory(trajectoryMat[, "lon"], trajectoryMat[, "lat"], 2500)$altitude,
                rep(2500, timeSec))
 })
+
+test_that("Trajectories are identified", {
+  expect_true(is.flighttrajectory(trajectory))
+  expect_false(is.flighttrajectory(trajectoryMat))
+})