Add missing period

Author: hadley

R/expect-inheritance.R

@@ -164,7 +164,7 @@ expect_r6_class <- function(object, class) {
   check_string(class)
 
   if (!inherits(act$val, "R6")) {
-    return(fail(sprintf("%s is not an R6 object", act$lab)))
+    return(fail(sprintf("%s is not an R6 object.", act$lab)))
   }
 
   if (!inherits(act$val, class)) {

tests/testthat/_snaps/expect-inheritance.md

@@ -49,7 +49,7 @@
 
 # expect_r6_class generates useful failures
 
-    `x` is not an R6 object
+    `x` is not an R6 object.
 
 # expect_r6_class validates its inputs