Feature request 1478380, and patch

--Apple-Mail-4-557995359
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	delsp=yes;
	format=flowed


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



--Apple-Mail-4-557995359
Content-Transfer-Encoding: base64
Content-Type: application/x-gzip; x-unix-mode=0644;
	name=srfi-19-test-suite.scm.patch.gz
Content-Disposition: attachment;
	filename=srfi-19-test-suite.scm.patch.gz

H4sICHRE10QCA3NyZmktMTktdGVzdC1zdWl0ZS5zY20ucGF0Y2gAzVrdc5tGEH+O/oqN+1AIQgb0
EWPXbtp0ppM8tJ00fekbRieLGoGGA9fuX9897oAD7gAp6Uxlj4C7/fzt3nIL+pBsyfM10GwX2a5v
54TmNi2inCxoeJjdfvln9un977CLYnINl+ETzdI0v6QRDcVXJk4O6baICb1khlwKay7VVs2fZhnJ
s4g8RckDZHigUZqAu/Bm22i3A7sAO8MrnVO2bWumXq3hYxGD5zgb8Lxr5+312gPbwc8rJt2yLB3j
W/iheOCM7vJ69fZ6KRhn796BvZ67Dljl97t3M5iBsSW7KCHV0aZC4mtIggOBfF8kj+YMAIyY5GAY
5agR7cCgL4f7NP6+pDM5tUERjOTBvuNzfMo0ZzYwAccMjIDSNOTElSbKKCwQn0EqToHKj5mQSUlu
h9vsNY5UttYTrxtmFHk8kmQrj8QRRYfCNKGyq/wj2aPQ0Jr8Ei0y/lmR1OBLpPBEsvuUEh4DdF1c
g3FPHqIE+SN6jIMXuLi5uYFPRZKwVLwwm4kqCCz8rj/31mDxA0sApXoKi7ZaHnokoeCg5Ic03fKz
+0Cc1FaxzEC4av7O1Te7Jo67NLNJEO5RfnC43wYs9iJ8rziypUbD4kfXrCeZkhZeRhhkGCChjZ3U
9nOWJlrceBTKTxqpDUnpFVKUR9esM5h/moxsEqGdED2z+3SneNDjHnRmgFrhV4da8q22U9gh1lWZ
dRUcneQjtIhzes2yEL8vzB4ZA8RUMMPPzHwlS+mYkufHQMPC3GtGGdJ3IHJXjqPsyitZ8G9YfiAL
ctJIb+aNS4F16Us7M2Qhv6RQArm4aGiMhPwd42prFxhuhqUUo0RVRcqRVQuR0FURCIQ1vDXKqnmO
tNXJ6wbtTnb1Xe3ra4OvJ+3FwdLLbMVCtlaKBx94CuKCcJlCfOmiKNXdas9quyis67fz5QpvrOVB
KqzS/fTic4RFPUwPxyCLKLshGDmO3H4/B5KHC/OCl1pRCiuLeOnNXTAOwSOxGQd8y77tIg/BaeoX
0ubeJKqljsqTqVyNStdx3LY815tMuRyglLS3ozTsVoty0LUW5ah7bWrvJOoxNyVqEWdkC3DjIDIC
MN6519SWcvgOh5f94e9w2MOZLrVOyq1GjIa+HFfIL8mR3lWZiQD0J5ihiCNOKk1VyrrVCtPy8JmO
nt69roNob6pBtc/VIKWe04kc4JNQ7s3JnipdqABSOlEhoXFDK/d2UPAgbysC8mxnz9urjaxnIhlJ
QnJeLVxilzOtHHYIFet1W+BNiDVzDuulWtSrQWqbk08uYVz4WBXrm9PimGiSVGpmvRxb8lO7iYJI
V7NPu1LQsoCLvobdEX1vvrwCix86vWbZsqZJiYGdB5FNtg8EGCDsomyd2UkcIBm7qruQN2DgliiL
HvY5oGv5nkDJiicvQPdpEW/hvrwEim2PiJnB1NwHNAp1UcDvOsIGU62hximkxi20bGuzCywV3Un8
lQocrNhrW9oK7yQbK1rBVelqcyEOAVCCnSVzGXspJQopnjIbe0jY2lVk2KV3rqlARMUlMLFlWJrI
teS04WHChgCyXR1ENacGJIlThinGbWWmQgn3gWqULD1Klh4lyx3InG7yDABkjQBkaQGyRgCyWgCl
j3PAxfUthUP6xBEJ4zR8hH0Q7xC+Q5rke0gzoCkc44JW4xzWygK6x135G3DX4K1g4+B/Y92esg27
QZ6POVY88E1pt/eFEdJU1j2tkEa7lEHy1EHijL0otaV04uSNxMnTxskbiVPDKVf8qQVN4jinqHUU
nlDYOopPKG4N54kFToXOtCKnQuncQqeFbFKx08I2qeCpoRtfUirkphU+FXJnFD8taJMKoBa0SUWw
BdoXFkLJEmUxlObVBfGrRnBqYVQG8aziqI/jlAKpj+OUIml1O+pWP93Un7bopiyLjW1d4doOdOnk
hdldqVqZSNutCVq5VleupZdrdeVaA3K9rlxPL9fryvVMqO5GnYCNwdenHYZwQLYSxgH5SigH5Cvh
HJKvgnRIvhJWS+6SdU3yDx/sPz6/h/dp8kQy9qqRdhvl8iXPxi9bL3bc8N5L0Uw3PaCRH663WGNu
5WXGBuQa0K7jvrt2V1dXDnajvml2HqwLtlKCA+srWPvgLWHpguuB6/tX4CjeU0xi+goGL50xg/1z
DPb/O4PdEYM3zhkG65i+hsHeiMH8z2V/vu8zteaYuWoW9TL5CVnG1kl/DfBV2nWv3i1KGd966WMw
A6W70pQ07vp6noyTDXdPMNz/Cob7g4bjDueF0Dl8wK1MlDyybwr4H4RFHsTxC3/KszjdTWe6m5pF
cJKbWhn/peGK5XCKzSr2SeZa56WTq1q9J1mskaC5T/4Jv+52lOQQjlUA/kg5zCWNbac3S/bwlD2n
Xa391epq7UuPgpGP1T9VTezy+fKLsHAre1eT+uCuypbBA4895l3ivfxK8TT5VLUt3tNVDz01rpDr
xC7cKp4aV2ZLtOya0YpgWrpq/vGndiitViitZr9/W4n/q4ijIEEvX/qpj8vUQ1dZKm1YKsEN/EOy
FDBv0jJv2pnprdaOu/Q77dlisWAaq0fNEEZPUVwGYg4bwD4to7ArMpzPgARUlnmGldhLbmC5cfor
HUuIMBDcy5VYWEoky3cseQqljiwtkq2dZ9FRAydfGQwX/kB+6AWDbBWPA+d+xnwrsowkucyIXXSa
pwl73NOrASJVarXqn7P03j5oyOBZNyEnYW0P3DSoQD1axqQh0kkUNjVsfL/03C91g+DgivifwIKW
jPja7ApP9bJ8PPm/8BItGfGybNYkL8UKq3+AV/2IpPsbum9yfoOa/Qt+yqKU2SoAAA==

--Apple-Mail-4-557995359
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	format=flowed



--Apple-Mail-4-557995359
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

-------------------------------------------------------------------------
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
--Apple-Mail-4-557995359
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
SISC-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/sisc-devel

--Apple-Mail-4-557995359--