From 33295e6f35a692c54764b76f4639722815ee2d6a Mon Sep 17 00:00:00 2001
From: orderlyquant <56486276+orderlyquant@users.noreply.github.com>
Date: Fri, 6 Oct 2023 19:01:08 -0400
Subject: [PATCH] fix function: expect_equal_tbls, in section 14.3.1 (#1025)

---
 testing-design.Rmd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/testing-design.Rmd b/testing-design.Rmd
index 2a209ec29..1a2612d13 100644
--- a/testing-design.Rmd
+++ b/testing-design.Rmd
@@ -470,10 +470,10 @@ compare_tbl <- function(x, y, label = NULL, expected.label = NULL) {
 expect_equal_tbls <- function(results, ref = NULL, ...) {
   # code that gets things ready ...
 
-  for (i in seq_along(rest)) {
+  for (i in seq_along(results)) {
     compare_tbl(
-      rest[[i]], ref,
-      label = names(rest)[[i]],
+      results[[i]], ref,
+      label = names(results)[[i]],
       expected.label = ref_name
     )
   }