use expect_equal for rank deficient ST test

openpharma · Jan 23, 2024 · 3db0eff · 3db0eff
1 parent 7ccfb1a
commit 3db0eff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-satterthwaite.R b/tests/testthat/test-satterthwaite.R
@@ -163,5 +163,5 @@ test_that("h_df_md_sat works as expected for rank deficient model", {
   result <- expect_silent(h_df_md_sat(object, contrast))
   object2 <- get_mmrm()
   expected <- expect_silent(h_df_md_sat(object2, contrast))
-  expect_identical(result, expected)
+  expect_equal(result, expected, tolerance = 1e-4)
 })