Feature request 1478380, and patch

Greetings.

I've addressed feature-request 1478380 (finally!).

In the course of doing so, I added a couple of cases to the SRFI-19  
unit test code, which I've also submitted to the SRFI-19 mailing  
list.  Might you consider adding these to the SISC SRFI-19 port?

I've attached a patch to sisc/src/sisc/modules/srfi/srfi-19/srfi-19- 
test-suite.scm  This includes some changes which are only indentation  
fixes, and the only materially important part of it is the addition  
of two tests at the bottom:

(define-s19-test! "Date-JD conversions"
  (lambda ()
    (and (= (date->julian-day (make-date 0 0 0 12 25 2 1996 0)) ;  
zero TZ offset
            2450139)
         ;; ...and the same civil time, 6 hours further east
         (= (date->julian-day (make-date 0 0 0 12 25 2 1996 (* 6  
3600)))
            (- 2450139 1/4)))))

(define-s19-test! "Time to date round-trips"
  (lambda ()
    (let ((zero-diff (make-time 'time-duration 0 0)))
      (and (let ((x (current-time 'time-monotonic)))
             (time=? zero-diff
                     (time-difference
                      x
                      (date->time-monotonic ;round-trip monotonic- 
date-monotonic
                       (time-monotonic->date x)))))
           (let ((x (current-time 'time-tai)))
             (time=? zero-diff
                     (time-difference
                      x
                      (date->time-tai
                       (time-tai->date x)))))
           (let ((x (current-time 'time-utc)))
             (time=? zero-diff
                     (time-difference
                      x
                      (date->time-utc
                       (time-utc->date x)))))))))

I hope this helps.

All the best,

Norman


--
------------------------------------------------------------------------ 
----
Norman Gray  /  http://nxg.me.uk
eurovotech.org  /  University of Leicester, UK

srfi-19-test-suite.scm.patch.gz
Description: GNU Zip compressed data

-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642_______________________________________________
SISC-devel mailing list
SISC-devel@xxxxxxxxxxxxxxxxxxxxx
https://lists.sourceforge.net/lists/listinfo/sisc-devel