X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;fp=tests.lisp;h=10f98bf6a747f3e2d024216439245b92d7e92916;hb=75d40f3a03e62192fef536292f3ec53bc576ae16;hp=8ff7fba4a2d30b1f2b877021d7bc340cf1e4a744;hpb=3cd0b929f112c66a537c00eaf951563df4985fc1;p=hyperobject.git diff --git a/tests.lisp b/tests.lisp index 8ff7fba..10f98bf 100644 --- a/tests.lisp +++ b/tests.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.3 2003/04/28 21:11:55 kevin Exp $ +;;;; $Id: tests.lisp,v 1.4 2003/04/29 09:47:10 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; ************************************************************************* @@ -120,11 +120,61 @@ Fax 123-0005 ") -(deftest p3 (view-to-string mary :category t) - "") +(deftest p3 (view-to-string mary :category :compact-text-labels) + " Person: + first-name Mary last-name Jackson dob Thu, 4 May 2000 03:02:01 resume Style & Grace +") -(deftest p4 (view-to-string mary :subobjects t :category t) - "") +(deftest p4 (view-to-string mary :subobjects t :category :html-labels) + "
Person:
Addresss:
Phone Numbers:
Phone Numbers: