diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:52:16 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-03-18 18:52:16 -0400 |
| commit | 7620af7d371302600c58f422ccdf496b2fbb1c46 (patch) | |
| tree | 012dfd00b8a8d4de8f128a5ca32ee02446afdd82 | |
| parent | 65967b4305b077654b9e6aa370a239039ac2f877 (diff) | |
Fix test suite.
| -rw-r--r-- | tests/subrip.scm | 4 | ||||
| -rw-r--r-- | tests/utils.scm | 6 | ||||
| -rw-r--r-- | tests/webvtt.scm | 4 |
3 files changed, 5 insertions, 9 deletions
diff --git a/tests/subrip.scm b/tests/subrip.scm index dd4a4f4..deeee58 100644 --- a/tests/subrip.scm +++ b/tests/subrip.scm @@ -69,6 +69,4 @@ baz " read-subrips)) -(test-end "subrip") - -(test-exit) +(test-end* "subrip") diff --git a/tests/utils.scm b/tests/utils.scm index b08db8f..9f10784 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -16,7 +16,7 @@ (define-module (tests utils) #:use-module (srfi srfi-64) - #:export (test-exit)) + #:export (test-end*)) -(define (test-exit) - (exit (= (test-runner-fail-count (test-runner-current)) 0))) +(define (test-end* name) + (exit (= (test-runner-fail-count (test-end name)) 0))) diff --git a/tests/webvtt.scm b/tests/webvtt.scm index 76a433d..e2d83bb 100644 --- a/tests/webvtt.scm +++ b/tests/webvtt.scm @@ -62,6 +62,4 @@ baz '("bar" "baz"))))) (write-webvtts subs port)))))) -(test-end "webvtt") - -(test-exit) +(test-end* "webvtt") |