Add small tests about radius/angle

radius and angle must be always NA if they are not filled in at media level obsrevations too.
inbo · Dec 22, 2023 · 2f3729e · 2f3729e
1 parent bd6a364
commit 2f3729e
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-read_camtrap_dp.R b/tests/testthat/test-read_camtrap_dp.R
@@ -532,6 +532,12 @@ test_that(
   }
 )
 
+test_that(
+  "read observations v1.0: radius is NA as NA in media based obs too", {
+    expect_true(all(is.na(dp_v1_with_media$data$observations$radius)))
+  }
+)
+
 test_that(
   "read observations v1.0: individualPositionAngle is renamed as angle", {
     expect_false(
@@ -542,6 +548,12 @@ test_that(
   }
 )
 
+test_that(
+  "read observations v1.0: angle is NA as NA in media based obs too", {
+    expect_true(all(is.na(dp_v1_with_media$data$observations$angle)))
+  }
+)
+
 test_that(
   "read observations v1.0: bounding box related columns are not present", {
     expect_false(