Commit 83778858 authored by Raymond Toy's avatar Raymond Toy
Browse files

Use simpler forms for tests 

Don't use a real example for the tests; replace the body with a simple
print to reduce the chance of failures due to other pprint changes.
parent cc4193e9

tests/pprint.lisp

+4 −29
Original line number Original line Diff line number Diff line
@@ -10,21 +10,10 @@ 
  (assert-equal 

  (assert-equal 

"

"

(WITH-FLOAT-TRAPS-MASKED (:UNDERFLOW)

(WITH-FLOAT-TRAPS-MASKED (:UNDERFLOW)

  (LET* ((RATIO

  (PRINT \"Hello\"))"

          (/ (* (EXPT 10 PPRINT-TESTS::EXPONENT) NUMBER)

             PPRINT-TESTS::DIVISOR))

         (PPRINT-TESTS::RESULT (COERCE RATIO PPRINT-TESTS::FLOAT-FORMAT)))

    (WHEN (AND (ZEROP PPRINT-TESTS::RESULT) (NOT (ZEROP NUMBER)))

      (ERROR \"Underflow\"))

    PPRINT-TESTS::RESULT))"

     (with-output-to-string (s)

     (with-output-to-string (s)

       (pprint '(ext:with-float-traps-masked (:underflow)

       (pprint '(ext:with-float-traps-masked (:underflow)

                 (let* ((ratio (/ (* (expt 10 exponent) number)

                 (print "Hello"))

                                  divisor))

	                (result (coerce ratio float-format)))

                   (when (and (zerop result) (not (zerop number)))

                     (error "Underflow"))

                   result))

               s))))

               s))))





(define-test pprint.with-float-traps-enabled

(define-test pprint.with-float-traps-enabled
@@ -32,22 +21,8 @@ 
  (assert-equal 

  (assert-equal 

"

"

(WITH-FLOAT-TRAPS-ENABLED (:UNDERFLOW)

(WITH-FLOAT-TRAPS-ENABLED (:UNDERFLOW)

  (LET* ((RATIO

  (PRINT \"Hello\"))"

          (/ (* (EXPT 10 PPRINT-TESTS::EXPONENT) NUMBER)

             PPRINT-TESTS::DIVISOR))

         (PPRINT-TESTS::RESULT (COERCE RATIO PPRINT-TESTS::FLOAT-FORMAT)))

    (WHEN (AND (ZEROP PPRINT-TESTS::RESULT) (NOT (ZEROP NUMBER)))

      (ERROR \"Underflow\"))

    PPRINT-TESTS::RESULT))"

     (with-output-to-string (s)

     (with-output-to-string (s)

       (pprint '(ext:with-float-traps-enabled (:underflow)

       (pprint '(ext:with-float-traps-enabled (:underflow)

                 (let* ((ratio (/ (* (expt 10 exponent) number)

                 (print "Hello"))

                                  divisor))

	                (result (coerce ratio float-format)))

                   (when (and (zerop result) (not (zerop number)))

                     (error "Underflow"))

                   result))

               s))))
 
               s))))