Add class to expected in the test-unvalidated-sim_gs_n.R

tests/testthat/test-unvalidated-sim_gs_n.R

@@ -38,6 +38,7 @@ test_that("regular logrank test", {
       -2.10969577332675, -2.6973263370173,  -3.79150544041283
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })
 
@@ -78,6 +79,7 @@ test_that("regular logrank test parallel", {
       -2.10969577332675, -2.6973263370173,  -3.79150544041283
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })
 
@@ -117,6 +119,7 @@ test_that("weighted logrank test by FH(0, 0.5)", {
       -2.49558219632314, -3.13409592510117, -4.41558699606811
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })
 
@@ -155,6 +158,7 @@ test_that("weighted logrank test by MB(3)", {
       -2.22390628856832, -2.80614509607408, -3.91075103840314
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })
 
@@ -193,6 +197,7 @@ test_that("weighted logrank test by early zero (6)", {
       -1.09806723640677, -1.98798012666056, -3.40360393955524
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })
 
@@ -392,6 +397,7 @@ test_that("sim_gs_n() accepts different tests per cutting", {
       -2.10969577332675, -3.13409592510117, -3.08198006391483
     )
   )
+  class(expected) <- c("wlr", class(expected))
   expect_equal(observed, expected)
 })