diff options
| -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") |