diff --git a/src/tests/features/ieee-fp.lsp b/src/tests/features/ieee-fp.lsp index 9f64859b8..c6899d311 100644 --- a/src/tests/features/ieee-fp.lsp +++ b/src/tests/features/ieee-fp.lsp @@ -51,4 +51,10 @@ ;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/issues/299 (test ieee-fp.0003.b299 (finishes (< ext:double-float-negative-infinity 1/3)) - (finishes (< ext:double-float-negative-infinity (1+ most-positive-fixnum)))) + (finishes (> ext:double-float-negative-infinity 1/3)) + (finishes (< 1/3 ext:double-float-negative-infinity)) + (finishes (> 1/3 ext:double-float-negative-infinity)) + (finishes (< ext:double-float-negative-infinity (1+ most-positive-fixnum))) + (finishes (> ext:double-float-negative-infinity (1+ most-positive-fixnum))) + (finishes (< (1+ most-positive-fixnum) ext:double-float-negative-infinity)) + (finishes (> (1+ most-positive-fixnum) ext:double-float-negative-infinity)))