summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-03-18 18:52:16 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-03-18 18:52:16 -0400
commit7620af7d371302600c58f422ccdf496b2fbb1c46 (patch)
tree012dfd00b8a8d4de8f128a5ca32ee02446afdd82 /tests
parent65967b4305b077654b9e6aa370a239039ac2f877 (diff)
Fix test suite.
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")