diff --git a/tests/testthat/test-expect-equality.R b/tests/testthat/test-expect-equality.R index 89a978b73..44b3389e4 100644 --- a/tests/testthat/test-expect-equality.R +++ b/tests/testthat/test-expect-equality.R @@ -29,9 +29,15 @@ test_that("useful message if objects equal but not identical", { expect_failure(expect_identical(f, g), "not identical") }) - test_that("% is not treated as sprintf format specifier (#445)", { expect_failure(expect_equal("+", "%")) expect_failure(expect_equal("%", "+")) expect_equal("%", "%") }) + +test_that("attributes for object (#452)", { + oops <- structure(0, oops = "oops") + expect_equal(oops, oops) + expect_failure(expect_equal(oops, 0)) + expect_equal(as.numeric(oops), 0) +})