From 77c535452e8b91069a47d53be108046eaa912732 Mon Sep 17 00:00:00 2001
From: "Zhao, Yujie" <yujie.zhao@merck.com>
Date: Thu, 22 Aug 2024 14:33:09 -0400
Subject: [PATCH] ignore attributes in tests

---
 tests/testthat/test-unvalidated-sim_gs_n.R | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/tests/testthat/test-unvalidated-sim_gs_n.R b/tests/testthat/test-unvalidated-sim_gs_n.R
index d2d83c43..e19d468b 100644
--- a/tests/testthat/test-unvalidated-sim_gs_n.R
+++ b/tests/testthat/test-unvalidated-sim_gs_n.R
@@ -105,8 +105,7 @@ test_that("regular logrank test", {
     )
   )
   class(expected) <- c("simtrial_gs_wlr", class(expected))
-  attr(expected, "method") <- unique(observed$parameter[observed$sim_id == 1])
-  expect_equal(observed, expected)
+  expect_equal(observed, expected, ignore_attr = TRUE)
 })
 
 test_that("regular logrank test parallel", {
@@ -148,8 +147,7 @@ test_that("regular logrank test parallel", {
     )
   )
   class(expected) <- c("simtrial_gs_wlr", class(expected))
-  attr(expected, "method") <- unique(observed$parameter[observed$sim_id == 1])
-  expect_equal(observed, expected)
+  expect_equal(observed, expected, ignore_attr = TRUE)
 })
 
 test_that("weighted logrank test by FH(0, 0.5)", {
@@ -189,8 +187,7 @@ test_that("weighted logrank test by FH(0, 0.5)", {
     )
   )
   class(expected) <- c("simtrial_gs_wlr", class(expected))
-  attr(expected, "method") <- unique(observed$parameter[observed$sim_id == 1])
-  expect_equal(observed, expected)
+  expect_equal(observed, expected, ignore_attr = TRUE)
 })
 
 test_that("weighted logrank test by MB(3)", {
@@ -230,8 +227,7 @@ test_that("weighted logrank test by MB(3)", {
     )
   )
   class(expected) <- c("simtrial_gs_wlr", class(expected))
-  attr(expected, "method") <- unique(observed$parameter[observed$sim_id == 1])
-  expect_equal(observed, expected)
+  expect_equal(observed, expected, ignore_attr = TRUE)
 })
 
 test_that("weighted logrank test by early zero (6)", {
@@ -271,8 +267,7 @@ test_that("weighted logrank test by early zero (6)", {
     )
   )
   class(expected) <- c("simtrial_gs_wlr", class(expected))
-  attr(expected, "method") <- unique(observed$parameter[observed$sim_id == 1])
-  expect_equal(observed, expected)
+  expect_equal(observed, expected, ignore_attr = TRUE)
 })
 
 test_that("RMST", {