Changeset 30543 in project


Ignore:
Timestamp:
03/09/14 19:28:16 (7 years ago)
Author:
sjamaan
Message:

numbers: fix tests which failed in isolation but accidentally passed when run as part of the test suite due to parameterization of earlier tests

Location:
release/4/numbers/trunk/tests
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/tests/all-tests.scm

    r30542 r30543  
    33(test-begin "numbers")
    44; Workaround to get it reset after it gets set by the script
    5 (parameterize ((current-test-epsilon current-test-epsilon))
     5(parameterize ((current-test-epsilon current-test-epsilon)
     6               (current-test-comparator current-test-comparator))
    67  (test-group "Basic numbers tests"
    7     (include "numbers-test.scm"))
    8   (test-group "Numbers tests by Alex Shinn"
    9     (include "numbers-test-ashinn.scm")))
     8    (include "numbers-test.scm")))
     9(test-group "Numbers tests by Alex Shinn"
     10  (include "numbers-test-ashinn.scm"))
    1011;; The s7 tests should be included here but were removed because of
    1112;; insane compilation times in the current release.  They can be
  • release/4/numbers/trunk/tests/numbers-test-gauche.scm

    r30521 r30543  
    7878
    7979;; This is probably a bit silly
    80 (define (+. . args) (apply + (map exact->inexact args)))
     80(define (+. . args) (if (null? args) 0.0 (apply + (map exact->inexact args))))
    8181(define (-. . args) (apply - (map exact->inexact args)))
    82 (define (*. . args) (apply * (map exact->inexact args)))
     82(define (*. . args) (if (null? args) 1.0 (apply * (map exact->inexact args))))
    8383(define (/. . args) (apply / (map exact->inexact args)))
    8484
Note: See TracChangeset for help on using the changeset viewer.