From aee06ce3ccdd93a742736388bd8bb33b7c51bdb7 Mon Sep 17 00:00:00 2001
From: Beaudette <dylan.beaudette@usda.gov>
Date: Wed, 18 Sep 2024 10:47:34 -0700
Subject: [PATCH] return feedback on why the test fails

---
 tests/testthat/test-fetchSCAN.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-fetchSCAN.R b/tests/testthat/test-fetchSCAN.R
index 8d20a0e7..f000201e 100644
--- a/tests/testthat/test-fetchSCAN.R
+++ b/tests/testthat/test-fetchSCAN.R
@@ -66,5 +66,5 @@ test_that("timezone check", {
   
   # should be GMT-8, that of the first station (2218)
   .tz <- table(format(z$SMS$datetime, format = '%Z'))
-  expect_true(names(.tz) == '-08')
+  expect_equal(names(.tz), '-08')
 })