Oops

Author: hadley

R/expect-comparison.R

@@ -35,7 +35,7 @@ expect_compare_ <- function(
     ">=" = "not greater than"
   )[[operator]]
 
-  negated_op <- switch(operator, "<" = ">", "<=" = ">=", ">" = "<", ">=" = "<=")
+  negated_op <- switch(operator, "<" = ">=", "<=" = ">", ">" = "<=", ">=" = "<")
 
   cmp <- op(act$val, exp$val)
   if (length(cmp) != 1 || !is.logical(cmp)) {

tests/testthat/_snaps/expect-comparison.md

@@ -1,10 +1,10 @@
 # useful output when numbers are very small
 
     1.1 * x is not less than `x`.
-    0.0000110 - 0.0000100 = 0.0000010 >= 0
+    0.0000110 - 0.0000100 = 0.0000010 > 0
 
 ---
 
     `x` is not strictly greater than 1.1 * x.
-    0.0000100 - 0.0000110 = -0.0000010 < 0
+    0.0000100 - 0.0000110 = -0.0000010 <= 0