From c65263bc5efb09e9134fbce2cba6a550c592068d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 18 Oct 2023 14:00:00 +0200 Subject: Finish tests for (vcomponent duration). --- module/vcomponent/duration.scm | 13 ++++++++----- tests/unit/coverage-supplement.scm | 6 ++++++ 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/module/vcomponent/duration.scm b/module/vcomponent/duration.scm index af1d95d5..7a047544 100644 --- a/module/vcomponent/duration.scm +++ b/module/vcomponent/duration.scm @@ -110,12 +110,15 @@ [(H) `(hour: ,n)] [(M) `(minute: ,n)] [(S) `(second: ,n)] - [else (scm-error 'misc-error "parse-duration" - "Invalid key ~a" type #f)]))] + [else (unreachable + "parse-duration" + "Invalid key ~a" + type)]))] [a - (scm-error 'misc-error "parse-duration" - "~s not on expected form ((number ) type)" - (list a) #f)]) + (unreachable + "parse-duration" + "~s not on expected form ((number ) type)" + (list a))]) (context-flatten (lambda (x) (and (pair? (car x)) (eq? 'number (caar x)))) (cdr (member "P" tree))) diff --git a/tests/unit/coverage-supplement.scm b/tests/unit/coverage-supplement.scm index 9242a3c1..e9dff8f2 100644 --- a/tests/unit/coverage-supplement.scm +++ b/tests/unit/coverage-supplement.scm @@ -36,4 +36,10 @@ 5 ; (Module declaration 52 ; else "keyword" apparently missed ) + ("module/vcomponent/duration.scm" + "c83a2750964c2362af5043f33b435a792f62007d847f543e78a8f2550757e010" + ;; Unreachable code, but fail faster + 113 114 115 + 118 119 120 121 + ) ) -- cgit v1.2.3