/[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.1.2.1 by ttn, Sat Aug 25 19:11:30 2001 UTC revision 1.1.2.2 by kryde, Tue Aug 26 00:26:36 2003 UTC
# 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 "1Jan84"
157          (= 0 (date-week-number (make-date 0 0 0 0 1 1 1984 0) 0)))
158        (pass-if "7Jan84"
159          (= 0 (date-week-number (make-date 0 0 0 0 7 1 1984 0) 0)))
160        (pass-if "8Jan84"
161          (= 1 (date-week-number (make-date 0 0 0 0 8 1 1984 0) 0)))))
162    
163  ;; Local Variables:  ;; Local Variables:
164  ;; eval: (put 'with-tz 'scheme-indent-function 1)  ;; eval: (put 'with-tz 'scheme-indent-function 1)

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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