;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: tests.lisp,v 1.6 2003/05/04 14:52:10 kevin Exp $
+;;;; $Id: tests.lisp,v 1.7 2003/05/05 20:35:23 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(deftest str.17 (nstring-trim-last-character "ab") "a")
(deftest str.18 (delimited-string-to-list "ab|cd|ef") '("ab" "cd" "ef"))
-(deftest str.19 (ndelimited-string-to-list "ab|cd|ef") '("ab" "cd" "ef"))
(deftest str.20 (delimited-string-to-list "") nil)
-(deftest str.21 (ndelimited-string-to-list "") nil)
(deftest str.22 (delimited-string-to-list "ab") '("ab"))
-(deftest str.23 (ndelimited-string-to-list "ab") '("ab"))
(deftest str.24 (delimited-string-to-list "ab|") '("ab" ""))
-(deftest str.25 (ndelimited-string-to-list "ab|") '("ab" ""))
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (find-package '#:kmr-mop)