From 6ac0ec969251011074904c3f45f045b56f161f5a Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sat, 25 Feb 2006 20:42:53 +0000
Subject: [PATCH] =?UTF-8?q?=09*=20tests/strings.test=20(string<=3F,=20stri?=
 =?UTF-8?q?ng-ci<=3F,=20string<=3D=3F,=20string-ci<=3D=3F,=20=09string>=3F?=
 =?UTF-8?q?,=20string-ci>=3F,=20string>=3D=3F,=20string-ci>=3D=3F):=20Chec?=
 =?UTF-8?q?k=20ordering=20is=20the=20=09same=20as=20char<=3F=20etc.=20=20U?=
 =?UTF-8?q?se=20a=20define-module=20to=20keep=20private=20test=20bits=20?=
 =?UTF-8?q?=09private.=20=09*=20tests/srfi-13.test=20(string-compare,=20st?=
 =?UTF-8?q?ring-compare-ci):=20Ditto.?=

---
 test-suite/tests/srfi-13.test | 37 ++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/srfi-13.test b/test-suite/tests/srfi-13.test
index ce0240e92..89759d0d3 100644
--- a/test-suite/tests/srfi-13.test
+++ b/test-suite/tests/srfi-13.test
@@ -18,11 +18,20 @@
 ;;;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;;;; Boston, MA 02110-1301 USA
 
-(use-modules (srfi srfi-13) (srfi srfi-14) (test-suite lib))
+(define-module (test-strings)
+  #:use-module (test-suite lib)
+  #:use-module (srfi srfi-13)
+  #:use-module (srfi srfi-14))
+
 
 (define exception:strict-infix-grammar
   (cons 'misc-error "^strict-infix"))
 
+;; Create a string from integer char values, eg. (string-ints 65) => "A"
+(define (string-ints . args)
+  (apply string (map integer->char args)))
+
+
 ;;;
 ;;; string-any
 ;;;
@@ -185,6 +194,32 @@
 
   (pass-if (equal? "abc" (string-concatenate '("a" "b" "c")))))
 
+;;
+;; string-compare
+;;
+
+(with-test-prefix "string-compare"
+
+  (pass-if "same as char<?"
+    (eq? (char<? (integer->char 0) (integer->char 255))
+	 (string-compare (string-ints 0) (string-ints 255)
+			 (lambda (pos) #t)     ;; lt
+			 (lambda (pos) #f)     ;; eq
+			 (lambda (pos) #f))))) ;; gt
+
+;;
+;; string-compare-ci
+;;
+
+(with-test-prefix "string-compare-ci"
+
+  (pass-if "same as char-ci<?"
+    (eq? (char-ci<? (integer->char 0) (integer->char 255))
+	 (string-compare-ci (string-ints 0) (string-ints 255)
+			 (lambda (pos) #t)     ;; lt
+			 (lambda (pos) #f)     ;; eq
+			 (lambda (pos) #f))))) ;; gt
+
 ;;;
 ;;; string-concatenate/shared
 ;;;