test for equality not identicalness

grunwaldlab · May 16, 2024 · 2e149a3 · 2e149a3
1 parent 63b2051
commit 2e149a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-import.R b/tests/testthat/test-import.R
@@ -308,7 +308,7 @@ test_that("diploid missing data is handled correctly", {
   file1 <- tempfile()
   genind2genalex(nancycats, file1, quiet = TRUE)
   nan <- read.genalex(file1, genclone = FALSE)
-  expect_identical(summary(nancycats, verbose = FALSE), summary(nan, verbose = FALSE))
+  expect_equal(summary(nancycats, verbose = FALSE), summary(nan, verbose = FALSE))
 })
 
 test_that("sequence data is handled correctly", {