summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/subrip.scm4
-rw-r--r--tests/utils.scm6
-rw-r--r--tests/webvtt.scm4
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")