From 749bead5c1624e94b17838434efb9cc0acbad372 Mon Sep 17 00:00:00 2001
From: "David J. Bosak" <dbosak01@gmail.com>
Date: Sun, 29 Oct 2023 09:32:37 -0400
Subject: [PATCH] Yet still another test.

---
 tests/testthat/test-utilities.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-utilities.R b/tests/testthat/test-utilities.R
index 91fdf9f..ec6d0b2 100644
--- a/tests/testthat/test-utilities.R
+++ b/tests/testthat/test-utilities.R
@@ -683,7 +683,8 @@ test_that("utils31: strwdth() works as expected.", {
   
   res1
   
-  expect_equal(all(res == round(res1, 7)), TRUE) 
+  expect_equal(res[1] == round(res1[1], 7), TRUE) 
+  expect_equal(res[2] == round(res1[2], 7), TRUE) 
    
   
   # pdf(NULL)