Fixes tests failure that were affected from {logger} update

tests/testthat/test-log_formatter.R

@@ -1,46 +1,46 @@
 testthat::test_that("teal.logger formats NULL asis", {
   out <- logger::log_info("null: {NULL}")
-  testthat::expect_identical(out$default$message, "null: NULL")
+  testthat::expect_equal(out$default$message, "null: NULL")
 })
 
 testthat::test_that("teal.logger formats character(0) asis", {
   out <- logger::log_info("empty character: {character(0)}")
-  testthat::expect_identical(out$default$message, "empty character: character(0)")
+  testthat::expect_equal(out$default$message, "empty character: character(0)")
 })
 
 testthat::test_that("teal.logger formats NA asis", {
   out <- logger::log_info("na: {NA}")
-  testthat::expect_identical(
+  testthat::expect_equal(
     out$default$message,
     "na: NA"
   )
 })
 
 testthat::test_that("teal.logger formats scalar asis", {
   out <- logger::log_info("numeric: {1}")
-  testthat::expect_identical(out$default$message, "numeric: 1")
+  testthat::expect_equal(out$default$message, "numeric: 1")
   out <- logger::log_info("character: {'a'}")
-  testthat::expect_identical(out$default$message, 'character: "a"')
+  testthat::expect_equal(out$default$message, 'character: "a"')
 })
 
 testthat::test_that("teal.logger formats vector as an array literal", {
   out <- logger::log_info("{letters[1:3]}")
-  testthat::expect_identical(out$default$message, 'c("a", "b", "c")')
+  testthat::expect_equal(out$default$message, 'c("a", "b", "c")')
 })
 
 testthat::test_that("teal.logger formats two vectors in a single log", {
   out <- logger::log_info("one: {letters[1:2]} two: {letters[3:4]}")
-  testthat::expect_identical(out$default$message, 'one: c("a", "b") two: c("c", "d")')
+  testthat::expect_equal(out$default$message, 'one: c("a", "b") two: c("c", "d")')
 })
 
 testthat::test_that("teal.logger formats list as a list literal", {
   out <- logger::log_info("list: {list(letters[1:2])}")
-  testthat::expect_identical(out$default$message, 'list: list(c("a", "b"))')
+  testthat::expect_equal(out$default$message, 'list: list(c("a", "b"))')
 })
 
 testthat::test_that("teal.logger formats nested list as a named list array literal", {
   out <- logger::log_info("nested list: {list(a = letters[1:2], b = list(letters[3:4]))}")
-  testthat::expect_identical(
+  testthat::expect_equal(
     out$default$message,
     'nested list: list(a = c("a", "b"), b = list(c("c", "d")))'
   )

tests/testthat/test-register_logger.R

@@ -14,7 +14,13 @@ testthat::test_that("register_logger throws an error when passed an invalid name
 
 testthat::test_that("register_logger throws an error when setting the logger layout fails", {
   testthat::expect_error(
-    withr::with_options(new = list(teal.log_layout = stop), code = register_logger("test")),
+    withr::with_envvar(
+      new = list(TEAL.LOG_LAYOUT = ""),
+      code = withr::with_options(
+        new = list(teal.log_layout = stop),
+        code = register_logger("test")
+      )
+    ),
     regexp = "Error setting the layout of the logger."
   )
 })