Refactor tests a bit

Author: hadley

tests/testthat/_snaps/expect-comparison.md

@@ -8,8 +8,13 @@
     `x` is not strictly greater than 1.1 * x.
     0.0000100 - 0.0000110 = -0.0000010 <= 0
 
----
+# useful output when difference is zero
 
-    `x` is not strictly less than `x`.
+    `x` is not strictly less than 100.
     100.0 - 100.0 = 0.0 >= 0
 
+# useful output when differnce is large
+
+    `x` is not strictly less than 0.001.
+    100.000 - 0.001 = 99.999 >= 0
+

tests/testthat/test-expect-comparison.R

@@ -12,9 +12,16 @@ test_that("useful output when numbers are very small", {
   x <- 1e-5
   expect_snapshot_failure(expect_lte(1.1 * x, x))
   expect_snapshot_failure(expect_gt(x, 1.1 * x))
+})
+
+test_that("useful output when difference is zero", {
+  x <- 100
+  expect_snapshot_failure(expect_lt(x, 100))
+})
 
+test_that("useful output when differnce is large", {
   x <- 100
-  expect_snapshot_failure(expect_lt(x, x))
+  expect_snapshot_failure(expect_lt(x, 0.001))
 })
 
 test_that("comparison result object invisibly", {