From 1d353c53048c1c1ef65a9c0369e07bdbcd498a71 Mon Sep 17 00:00:00 2001 From: Henrique Sposito Date: Tue, 13 Aug 2024 14:38:45 +0200 Subject: [PATCH] Fixed test issues with new changes --- tests/testthat/test_urgency.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test_urgency.R b/tests/testthat/test_urgency.R index 3fc0030f..f2caee3f 100644 --- a/tests/testthat/test_urgency.R +++ b/tests/testthat/test_urgency.R @@ -6,9 +6,9 @@ text <- c("We must implement these measures to limit our carbon emissions now.", urgency <- get_urgency(text) test_that("Urgency is scored properly", { - expect_true(urgency$Frequency[5] > 1) + expect_true(urgency$Frequency[5] > 0.9) expect_true(urgency$Timing[1] > 1) - expect_true(urgency$Intensity[4] > 1) + expect_true(urgency$Intensity[4] > 0.8) expect_true(urgency$Commitment[2] < urgency$Commitment[3]) - expect_true(all(order(urgency$Urgency) == c(3, 2, 4, 5, 1))) + expect_true(all(order(urgency$Urgency) == c(3, 4, 2, 5, 1))) })