diff --git a/tests/testthat/test-xml_attr.R b/tests/testthat/test-xml_attr.R
index 8292231..682dc41 100644
--- a/tests/testthat/test-xml_attr.R
+++ b/tests/testthat/test-xml_attr.R
@@ -35,8 +35,8 @@ test_that("qualified names returned when ns given", {
   bars <- xml_children(xml_children(x))
   attr <- xml_attrs(bars, ns)
 
-  expect_equal(names(attr[[1]]), "f:id")
-  expect_equal(names(attr[[2]]), "g:id")
+  expect_named(attr[[1]], "f:id")
+  expect_named(attr[[2]], "g:id")
 })
 
 
diff --git a/tests/testthat/test-xml_serialize.R b/tests/testthat/test-xml_serialize.R
index 825ead6..cb210c3 100644
--- a/tests/testthat/test-xml_serialize.R
+++ b/tests/testthat/test-xml_serialize.R
@@ -2,7 +2,7 @@ x <- read_xml("<a>
   <b><c>123</c></b>
   <b><c>456</c></b>
   </a>")
-  
+
 test_that("xml_serialize and xml_unserialize work with xml_document input", {
   out <- xml_unserialize(xml_serialize(x, NULL))
   expect_identical(as.character(x), as.character(out))