diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 17:04:42 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
| commit | 5e24009561a095339930e600f6ae2ac53ac1bd76 (patch) | |
| tree | 3adeef0b0ad6d103448ed29afefca3ce01d8cc7a /module/datetime.scm | |
| parent | Allow NOCOV comments. (diff) | |
| download | calp-5e24009561a095339930e600f6ae2ac53ac1bd76.tar.gz calp-5e24009561a095339930e600f6ae2ac53ac1bd76.tar.xz | |
Move coverage supplement for datetime into source file.
Diffstat (limited to 'module/datetime.scm')
| -rw-r--r-- | module/datetime.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index 9bb536e3..53eb35c6 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -201,7 +201,7 @@ constructor: datetime-constructor-constructor printer: (lambda (r p) (if (and (tz r) (not (string=? "UTC" (tz r)))) - (write (datetime->sexp r) p) + (write (datetime->sexp r) p) ; NOCOV (display (datetime->string r "#~1T~3~Z") p)))) (datetime-date type: date?) @@ -249,7 +249,7 @@ (let ((tm (datetime->tm dt))) (car (if (tz dt) (mktime tm (vector-last tm)) - (mktime tm))))) + (mktime tm))))) ; NOCOV Would depend on local timezone (define (unix-time->datetime n) ;; tm->datetime returns GMT here (as hinted by the @@ -963,7 +963,7 @@ Returns -1 on failure" ;; Extends a binary comparison procedure to work on any ;; number of arguments. (define (fold-comparator <) - (label this + (label this ; NOCOV (case-lambda [() #t] [(_) #t] |