From 3db0effcdf11570ba48b29f1d5fe680f1830b51e Mon Sep 17 00:00:00 2001 From: Daniel Sabanes Bove Date: Tue, 23 Jan 2024 16:59:54 +0100 Subject: [PATCH] use expect_equal for rank deficient ST test --- tests/testthat/test-satterthwaite.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-satterthwaite.R b/tests/testthat/test-satterthwaite.R index ae5b34280..4fe28452f 100644 --- 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) })