From 4eb1a0c049ed8fe0b69980cd480ceb52aee77c32 Mon Sep 17 00:00:00 2001
From: Chris Knoll <cknoll@ohdsi.org>
Date: Mon, 8 Jul 2024 14:42:30 -0400
Subject: [PATCH] Fix tests.

---
 R/Builders.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/Builders.R b/R/Builders.R
index 12e7ad2..1df96bd 100644
--- a/R/Builders.R
+++ b/R/Builders.R
@@ -156,7 +156,7 @@ createStrataSettings <- function (byAge = F, byGender = F, byYear = F, ageBreaks
   strataSettings$byAge <- byAge;
   strataSettings$byGender <- byGender;
   strataSettings$byYear <- byYear;
-  if(byAge == T && (missing(ageBreaks) || missing(ageBreakList))) stop ("Error: when byAge = TRUE, ageBreaks or ageBreakList must be provided.")
+  if(byAge == T && missing(ageBreaks) && missing(ageBreakList)) stop ("Error: when byAge = TRUE, ageBreaks or ageBreakList must be provided.")
   if (!missing(ageBreaks)) strataSettings$ageBreaks <- ageBreaks;
 
   return(strataSettings);