From f37429d51067c71fa74c78381ff60c258f6ac75f Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 16 Apr 2017 22:15:58 +0900
Subject: [PATCH] adding new srfi tests to lib-tests

---
 lib/srfi/117/test.sld | 2 +-
 lib/srfi/128/test.sld | 2 +-
 lib/srfi/129/test.sld | 2 +-
 lib/srfi/132/test.sld | 2 +-
 lib/srfi/133/test.sld | 6 ++++--
 tests/lib-tests.scm   | 4 ++++
 6 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/lib/srfi/117/test.sld b/lib/srfi/117/test.sld
index f3f2ef1c..9476a102 100644
--- a/lib/srfi/117/test.sld
+++ b/lib/srfi/117/test.sld
@@ -3,7 +3,7 @@
   (export run-tests)
   (begin
     (define (run-tests)
-      (test-begin "list-queues")
+      (test-begin "srfi-117: list-queues")
 
       (test-group "list-queues/simple"
         (define x (list-queue 1 2 3))
diff --git a/lib/srfi/128/test.sld b/lib/srfi/128/test.sld
index 28934006..e0711c6d 100644
--- a/lib/srfi/128/test.sld
+++ b/lib/srfi/128/test.sld
@@ -40,7 +40,7 @@
        (lambda (a b) (string<? (symbol->string a) (symbol->string b)))
        symbol-hash))
     (define (run-tests)
-      (test-group "comparators"
+      (test-group "srfi-128: comparators"
         (test '#(2 3 4) (vector-cdr '#(1 2 3 4)))
         (test '#() (vector-cdr '#(1)))
 
diff --git a/lib/srfi/129/test.sld b/lib/srfi/129/test.sld
index e180570f..07e29777 100644
--- a/lib/srfi/129/test.sld
+++ b/lib/srfi/129/test.sld
@@ -10,7 +10,7 @@
     (define Ljubljana "\x01C8;ub\x01C9;ana")
     (define ljubljana "\x01C9;ub\x01C9;ana")
     (define (run-tests)
-      (test-begin "titlecase")
+      (test-begin "srfi-129: titlecase")
       (test-group "titlecase/predicate"
         (test-assert (char-title-case? #\x01C5))
         (test-assert (char-title-case? #\x1FFC))
diff --git a/lib/srfi/132/test.sld b/lib/srfi/132/test.sld
index 4bf7d0bc..b030d2a5 100644
--- a/lib/srfi/132/test.sld
+++ b/lib/srfi/132/test.sld
@@ -3,7 +3,7 @@
   (export run-tests)
   (begin
     (define (run-tests)
-      (test-begin "sorting")
+      (test-begin "srfi-132: sorting")
       (test '()
           (list-sort > (list)))
       (test '(987)
diff --git a/lib/srfi/133/test.sld b/lib/srfi/133/test.sld
index 3bd13172..79c91998 100644
--- a/lib/srfi/133/test.sld
+++ b/lib/srfi/133/test.sld
@@ -3,7 +3,7 @@
   (export run-tests)
   (begin
     (define (run-tests)
-
+      (test-begin "srfi-133: vectors")
       (test-group "vectors/constructors"
         (define a2i '#(a b c d e f g h i))
         (test '#(0 1 2 3 4) (vector 0 1 2 3 4))
@@ -173,4 +173,6 @@
         (test '#(#\a #\b #\c) (string->vector "abc"))
         (test '#(#\b #\c) (string->vector "abc" 1))
         (test '#(#\a #\b) (string->vector "abc" 0 2))
-        ))))
+        )
+
+      (test-end))))
diff --git a/tests/lib-tests.scm b/tests/lib-tests.scm
index f415cb64..14222456 100644
--- a/tests/lib-tests.scm
+++ b/tests/lib-tests.scm
@@ -12,11 +12,13 @@
         (rename (srfi 95 test) (run-tests run-srfi-95-tests))
         (rename (srfi 99 test) (run-tests run-srfi-99-tests))
         (rename (srfi 117 test) (run-tests run-srfi-117-tests))
+        (rename (srfi 121 test) (run-tests run-srfi-121-tests))
         (rename (srfi 128 test) (run-tests run-srfi-128-tests))
         (rename (srfi 129 test) (run-tests run-srfi-129-tests))
         (rename (srfi 130 test) (run-tests run-srfi-130-tests))
         (rename (srfi 132 test) (run-tests run-srfi-132-tests))
         (rename (srfi 133 test) (run-tests run-srfi-133-tests))
+        (rename (srfi 142 test) (run-tests run-srfi-142-tests))
         (rename (chibi base64-test) (run-tests run-base64-tests))
         (rename (chibi crypto md5-test) (run-tests run-md5-tests))
         (rename (chibi crypto rsa-test) (run-tests run-rsa-tests))
@@ -59,11 +61,13 @@
 (run-srfi-95-tests)
 (run-srfi-99-tests)
 (run-srfi-117-tests)
+(run-srfi-121-tests)
 (run-srfi-128-tests)
 (run-srfi-129-tests)
 (run-srfi-130-tests)
 (run-srfi-132-tests)
 (run-srfi-133-tests)
+(run-srfi-142-tests)
 (run-base64-tests)
 (run-doc-tests)
 (run-generic-tests)