From 5e24009561a095339930e600f6ae2ac53ac1bd76 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 27 Oct 2023 17:04:42 +0200 Subject: Move coverage supplement for datetime into source file. --- module/datetime.scm | 6 +++--- 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 -- cgit v1.2.3