From 9a81e708caa0b8d525f42683e870c14dcd551675 Mon Sep 17 00:00:00 2001 From: Pieter Huybrechts <48065851+PietrH@users.noreply.github.com> Date: Fri, 10 Nov 2023 11:09:31 +0100 Subject: [PATCH] use comparison expectations for better failure messages --- tests/testthat/test-get_cam_op.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-get_cam_op.R b/tests/testthat/test-get_cam_op.R index 3c1febdd..948f6cf0 100644 --- a/tests/testthat/test-get_cam_op.R +++ b/tests/testthat/test-get_cam_op.R @@ -258,10 +258,10 @@ test_that("daily effort is > 0 and < 1 for partial active days (start/end)", { location <- mica$data$deployments$locationName[4] start <- as.character(as.Date(mica$data$deployments$start[4])) end <- as.character(as.Date(mica$data$deployments$end[4])) - expect_true(cam_op_matrix[4, start] > 0) - expect_true(cam_op_matrix[4, start] < 1) - expect_true(cam_op_matrix[4, end] > 0) - expect_true(cam_op_matrix[4, end] < 1) + expect_gt(cam_op_matrix[4, start], 0) + expect_lt(cam_op_matrix[4, start],1) + expect_gt(cam_op_matrix[4, end], 0) + expect_lt(cam_op_matrix[4, end], 1) }) test_that( @@ -283,8 +283,8 @@ test_that( expect_true( nrow(cam_op_matrix) == length(unique(mica1$data$deployments$locationName)) ) - expect_true(cam_op_matrix[1, first_full_day_two_deps] > 1) - expect_true(cam_op_matrix[1, last_full_day_two_deps] > 1) + expect_gt(cam_op_matrix[1, first_full_day_two_deps], 1) + expect_gt(cam_op_matrix[1, last_full_day_two_deps], 1) } )