From 3878953ee7f1574e201f833174a99f4766d51574 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 7 May 2003 16:05:14 +0000 Subject: [PATCH] r4866: Auto commit for Debian build --- tests.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests.lisp b/tests.lisp index 202145b..426ba9c 100644 --- a/tests.lisp +++ b/tests.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.10 2003/05/07 16:03:11 kevin Exp $ +;;;; $Id: tests.lisp,v 1.11 2003/05/07 16:05:14 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -56,11 +56,11 @@ (deftest str.24 (delimited-string-to-list "ab|" #\|) ("ab" "")) (deftest str.25 (delimited-string-to-list "ab|" #\| t) ("ab")) -(deftest ap1.1 (append-sublists '((a b) (c d)) (a b c d))) -(deftest ap1.2 (append-sublists nil) nil) -(deftest ap1.3 (append-sublists '((a b))) (a b)) -(deftest ap1.4 (append-sublists '((a))) (a)) -(deftest ap1.5 (append-sublists '((a) (b) (c d (e f g)))) (a b c d (e f g))) +(deftest apsl.1 (append-sublists '((a b) (c d)) (a b c d))) +(deftest apsl.2 (append-sublists nil) nil) +(deftest apsl.3 (append-sublists '((a b))) (a b)) +(deftest apsl.4 (append-sublists '((a))) (a)) +(deftest apsl.5 (append-sublists '((a) (b) (c d (e f g)))) (a b c d (e f g))) (eval-when (:compile-toplevel :load-toplevel :execute) (when (find-package '#:kmr-mop) -- 2.34.1