add test

r-lib · Apr 16, 2016 · 66b00ed · 66b00ed
1 parent 55ef75e
commit 66b00ed
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-expect-equality.R b/tests/testthat/test-expect-equality.R
@@ -29,3 +29,9 @@ test_that("useful message if objects equal but not identical", {
   expect_failure(expect_identical(f, g), "not identical")
 })
 
+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)
+})