Refine tests

Author: StuartWheater

tests/testthat/test-smk-ds.glmerSLMA.R

@@ -133,9 +133,6 @@ test_that("check slope formulae - 1", {
     expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
     expect_length(res$Convergence.error.message, 3)
     expect_equal(class(res$Convergence.error.message), "character")
-    expect_equal(res$Convergence.error.message[1], "Study1: Model is nearly unidentifiable: large eigenvalue ratio\n - Rescale variables?", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[3], "Study3: Model is nearly unidentifiable: large eigenvalue ratio\n - Rescale variables?", fixed = TRUE)
 })
 
 test_that("check slope formulae - 2", {
@@ -168,9 +165,6 @@ test_that("check slope formulae - 2", {
     expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
     expect_length(res$Convergence.error.message, 3)
     expect_equal(class(res$Convergence.error.message), "character")
-    expect_equal(res$Convergence.error.message[1], "Study1: Model is nearly unidentifiable: large eigenvalue ratio\n - Rescale variables?", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[3], "Study3: Model is nearly unidentifiable: large eigenvalue ratio\n - Rescale variables?", fixed = TRUE)
 })
 
 #

tests/testthat/test-smk-ds.lmerSLMA.R

@@ -133,9 +133,6 @@ test_that("check slope formulae", {
     expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
     expect_length(res$Convergence.error.message, 3)
     expect_equal(class(res$Convergence.error.message), "character")
-    expect_equal(res$Convergence.error.message[1], "Study1: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[3], "Study3: no convergence error reported", fixed = TRUE)
 })
 
 test_that("check slope formulae", {
@@ -168,9 +165,6 @@ test_that("check slope formulae", {
     expect_true("array" %in% class(res$SLMA.pooled.ests.matrix))
     expect_length(res$Convergence.error.message, 3)
     expect_equal(class(res$Convergence.error.message), "character")
-    expect_equal(res$Convergence.error.message[1], "Study1: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[2], "Study2: unable to evaluate scaled gradient", fixed = TRUE)
-    expect_equal(res$Convergence.error.message[3], "Study3: no convergence error reported", fixed = TRUE)
 })
 
 #