Fixed test issues with new changes

henriquesposito · Aug 13, 2024 · 1d353c5 · 1d353c5
1 parent e21f6c1
commit 1d353c5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)))
 })