/[guile]/guile/guile-core/test-suite/tests/srfi-19.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/srfi-19.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ttn, Sat Aug 25 19:08:50 2001 UTC revision 1.3 by kryde, Fri Aug 22 22:30:52 2003 UTC
# Line 1  Line 1 
1  ;;;; srfi-19.test --- test suite for SRFI-19 -*- scheme -*-  ;;;; srfi-19.test --- test suite for SRFI-19 -*- scheme -*-
2  ;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001  ;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001
3  ;;;;  ;;;;
4  ;;;;    Copyright (C) 2001 Free Software Foundation, Inc.  ;;;;    Copyright (C) 2001, 2003 Free Software Foundation, Inc.
5  ;;;;  ;;;;
6  ;;;; This program is free software; you can redistribute it and/or modify  ;;;; This program is free software; you can redistribute it and/or modify
7  ;;;; it under the terms of the GNU General Public License as published by  ;;;; it under the terms of the GNU General Public License as published by
# Line 150  incomplete numerical tower implementatio Line 150  incomplete numerical tower implementatio
150           (time2 (make-time time-monotonic 385907 998360432))           (time2 (make-time time-monotonic 385907 998360432))
151           (diff (time-difference time2 time1)))           (diff (time-difference time2 time1)))
152      (test-time-arithmetic add-duration time1 diff time2)      (test-time-arithmetic add-duration time1 diff time2)
153      (test-time-arithmetic subtract-duration time2 diff time1)))      (test-time-arithmetic subtract-duration time2 diff time1))
154    
155      (with-test-prefix "date-week-number"
156        (pass-if (= 0 (date-week-number (make-date 0 0 0 0 1 1 1984 0) 0)))
157        (pass-if (= 0 (date-week-number (make-date 0 0 0 0 7 1 1984 0) 0)))
158        (pass-if (= 1 (date-week-number (make-date 0 0 0 0 8 1 1984 0) 0)))))
159    
160    
161  ;; Local Variables:  ;; Local Variables:
162  ;; eval: (put 'with-tz 'scheme-indent-function 1)  ;; eval: (put 'with-tz 'scheme-indent-function 1)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26