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 |
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) |