add test

r-lib · Apr 16, 2016 · 933ae45 · 933ae45
1 parent 5700234
commit 933ae45
Showing 1 changed file with 7 additions and 1 deletion.
diff --git 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)
+})