;; -*- Scheme -*-
;;
;; $Id: stringt31.scm,v 1.1 1998/03/16 08:00:13 foner Exp $

(require 'string:test:equal)
(require 'substring:prefix?)

(define substring:test:prefix?
  (lambda args

    (if (not (null? args)) (display "Testing substring:prefix? ... "))

    (string:test:equal
     'substring:prefix-a
     (substring:prefix? "abc" 0 3 "abcdefg" 0 7)
     3)

    (string:test:equal
     'substring:prefix-b
     (substring:prefix? "abc" 0 3 "zabcdefg" 0 8)
     #f)

    (string:test:equal
     'substring:prefix-c
     (substring:prefix? "abc" 0 3 "zabcdefg" 1 8)
     4)

    (if (not (null? args)) (begin (display "done") (newline)))

  ))

;; eof
