Yet still another test.

dbosak01 · Oct 29, 2023 · 749bead · 749bead
1 parent f7a326e
commit 749bead
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)