From a47e82764cda42bef9638e83922729eb8d4da939 Mon Sep 17 00:00:00 2001 From: Rosemary Li Date: Sun, 11 Feb 2024 22:59:18 +0000 Subject: [PATCH] L for test integers --- tests/testthat/test-calculate_study_day.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-calculate_study_day.R b/tests/testthat/test-calculate_study_day.R index 05234f9d..07d1fe92 100644 --- a/tests/testthat/test-calculate_study_day.R +++ b/tests/testthat/test-calculate_study_day.R @@ -29,7 +29,7 @@ test_that("`calculate_study_day()` works as expected for invalid input", { "needs to have the variable of merge_key" ) expect_error( - calculate_study_day(iris, iris, "Species", "Petal.Length", 123, "Species"), + calculate_study_day(iris, iris, "Species", "Petal.Length", 123L, "Species"), "study_day_var is not a character vector" ) expect_warning( @@ -48,7 +48,7 @@ test_that("`calculate_study_day()` works as expected for invalid input", { dm2 <- data.frame( USUBJID = c("study123-123", "study123-124", "study123-125"), - RFSTDTC = c(123, 456, 789) + RFSTDTC = c(123L, 456L, 789L) ) expect_warning( calculate_study_day(ae, dm2, "RFSTDTC", "AESTDTC", "AESTDY"),