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 | |
| parent | Allow NOCOV comments. (diff) | |
| download | calp-5e24009561a095339930e600f6ae2ac53ac1bd76.tar.gz calp-5e24009561a095339930e600f6ae2ac53ac1bd76.tar.xz | |
Move coverage supplement for datetime into source file.
| -rw-r--r-- | module/datetime.scm | 6 | ||||
| -rw-r--r-- | tests/unit/coverage-supplement.scm | 8 |
2 files changed, 3 insertions, 11 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] diff --git a/tests/unit/coverage-supplement.scm b/tests/unit/coverage-supplement.scm index 9b4e5a0e..d7b5a00c 100644 --- a/tests/unit/coverage-supplement.scm +++ b/tests/unit/coverage-supplement.scm @@ -37,14 +37,6 @@ 16 17 18 19 ; primitive sha256 procedure ) - ("module/datetime.scm" - "67eb46283a4097e8400322ab6434518a2455ca630e163238b5839c2bf25c9ac7" - 204 - 252 ; Would depend on local timezone - 491 ; somehow not counted - 966 - ) - ("module/datetime/zic.scm" "2a8ac0fae3c88227b05a5978bff3e114745ea146e07a2751df67d16c1e8218f5" 66 ; syntax-rules |