Revert expect_ function

inbo · Dec 17, 2024 · 2600a67 · 2600a67
1 parent 76244b8
commit 2600a67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-individuals.R b/tests/testthat/test-individuals.R
@@ -28,5 +28,5 @@ test_that("individuals() returns the expected rows (unique individuals)", {
   x$data$observations[x$data$observations$observationID == "05230014",]$individualID <- "Fezzik"
   x$data$observations[x$data$observations$observationID == "5ead5692",]$individualID <- "Buttercup"
   x$data$observations[x$data$observations$observationID == "29939500",]$individualID <- "Westley"
-  expect_length(individuals(x), 3)
+  expect_equal(nrow(individuals(x)), 3)
 })