Ignore:
Timestamp:
09/09/18 20:03:36 (2 years ago)
Author:
Kon Lovett
Message:

fix dir, split

Location:
release/5/fp-utils/trunk
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed
  • release/5/fp-utils/trunk/test/fp-utils-test.scm

    r35993 r36573  
    1 ;;;; mathh-test
    2 ;;;; Kon Lovett, May '17
     1;;;; fp-utils-test  -*- Scheme -*-
     2;;;; Kon Lovett, Sep '18
    33
    4 ;;;; Issues
    5 ;;;;
     4(import test)
    65
    7 (require-extension test)
     6(test-begin "Fp Utils")
    87
    98;;;
    109
    11 ;;;
     10(import (chicken base) (chicken flonum))
    1211
    13 (require-extension fp-utils)
     12(include "fp-inlines")
    1413
    15 (define-constant 5eps (fp/ 9.0 1e06))
    16 (define-constant 4eps (fp/ 9.0 1e05))
    17 
    18 (test-group "FP Utils"
     14(test-group "Fp Inlines"
    1915
    2016  (test-assert (fpzero? 0.0))
     
    4036        (test-assert (fpodd? 7.0))
    4137
    42         (test-assert (flonum? (fprandom)))
    43         (test-assert (flonum? (fprandom 2456)))
    44 
    4538        (test 4.0 (fpadd1 3.0))
    4639        (test 2.0 (fpsub1 3.0))
     
    5346        (test 2.0 (fpquotient 5.0 2.0))
    5447        (test 1.0 (fpremainder 5.0 2.0))
     48)
     49
     50;;
     51
     52(define-constant 5eps (fp/ 9.0 1e06))
     53(define-constant 4eps (fp/ 9.0 1e05))
     54
     55(test-group "Fp Utils"
     56
     57        (test-assert (flonum? (fprandom)))
     58        (test-assert (flonum? (fprandom 2456)))
    5559
    5660        (test-assert (fp~= 0.123456 0.123457 5eps))
     
    7074;;;
    7175
    72 (test-end "mathh")
    73 
    74 ;;;
     76(test-end "Fp Utils")
    7577
    7678(test-exit)
Note: See TracChangeset for help on using the changeset viewer.