diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-19 01:28:02 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-19 01:28:02 +0100 |
commit | d6b1dddeb255053332b5059f4b5dcfa7112d96e9 (patch) | |
tree | b04dc76029148cda72744bf9ff6dfd56d74f63f2 | |
parent | Freed datetime from its srfi-19 prison. (diff) | |
download | calp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.gz calp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.xz |
Update tests to remove srfi-19.
-rw-r--r-- | tests/datetime-compare.scm (renamed from tests/srfi-19-alt-compare.scm) | 2 | ||||
-rw-r--r-- | tests/datetime-util.scm (renamed from tests/srfi-srfi-19-alt-util.scm) | 4 | ||||
-rw-r--r-- | tests/datetime.scm (renamed from tests/srfi-19-alt.scm) | 2 | ||||
-rw-r--r-- | tests/recurring.scm | 4 | ||||
-rwxr-xr-x | tests/run-tests.scm | 5 |
5 files changed, 9 insertions, 8 deletions
diff --git a/tests/srfi-19-alt-compare.scm b/tests/datetime-compare.scm index 5ee7e63d..0548ac25 100644 --- a/tests/srfi-19-alt-compare.scm +++ b/tests/datetime-compare.scm @@ -1,4 +1,4 @@ -(((srfi srfi-19 alt) +(((datetime) date datetime time date< date<= diff --git a/tests/srfi-srfi-19-alt-util.scm b/tests/datetime-util.scm index 7343bfa3..6e5ce170 100644 --- a/tests/srfi-srfi-19-alt-util.scm +++ b/tests/datetime-util.scm @@ -1,5 +1,5 @@ -(((srfi srfi-19 alt) date time) - ((srfi srfi-19 alt util) month-stream in-date-range?) +(((datetime) date time) + ((datetime util) month-stream in-date-range?) ((srfi srfi-41) stream->list stream-take )) diff --git a/tests/srfi-19-alt.scm b/tests/datetime.scm index de6f6750..b678edad 100644 --- a/tests/srfi-19-alt.scm +++ b/tests/datetime.scm @@ -1,4 +1,4 @@ -(((srfi srfi-19 alt) date+ date- +(((datetime) date+ date- time+ time- year month day date time diff --git a/tests/recurring.scm b/tests/recurring.scm index da6e18a8..0871d38d 100644 --- a/tests/recurring.scm +++ b/tests/recurring.scm @@ -1,7 +1,5 @@ (((srfi srfi-41) stream-take stream-map stream->list stream-car) - ;; ((srfi srfi-19) date->time-utc time-utc->date) - ;; ((srfi srfi-19 util) day-stream) - ((srfi srfi-19 alt util) day-stream) + ((datetime util) day-stream) ((vcomponent base) extract attr) ((vcomponent) parse-calendar) diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 8d99eef7..ded94cc5 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -16,7 +16,10 @@ (ice-9 sandbox) (srfi srfi-64) ; test suite (srfi srfi-88) ; suffix keywords - ((util) :select (for awhen))) + ((util) :select (for awhen)) + ;; datetime introduces the reader extensions for datetimes, + ;; which leaks into the sandboxes below. + (datetime)) (define files (scandir here |