X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=9b68d9891fcda355cd1ed4b07ddbf6b6c4ba51ae;hb=170835021d82ee46c95a3fbf7b24c55109262647;hp=31bd7fafeb8bf239182e9e736c8de67ca238d285;hpb=d2c11a684b415dd4a8797d843de0d4f3d9a6906a;p=hyperobject.git
diff --git a/tests.lisp b/tests.lisp
index 31bd7fa..9b68d98 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: tests.lisp,v 1.7 2003/05/14 08:30:38 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@ -122,280 +122,8 @@
Fax 123-0005
")
-(deftest p3 (view-to-string mary :category :compact-text-labels)
+(deftest p3 (view-to-string mary :vid :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 :html-labels)
- "
Person:
-- first-name Mary last-name Jackson dob Thu, 4 May 2000 03:02:01 resume Style & Grace
-
Addresses:
- - title Home street 321 Shady Lane
-
Phone Numbers:
- - title Voice phone-number 367-9812
-
- - title Fax phone-number 367-9813
-
-
-
- - title Office street 113 Main St.
-
Phone Numbers:
- - title Main line phone-number 123-0001
-
- - title Staff line phone-number 123-0002
-
- - title Fax phone-number 123-0005
-
-
-
-
-
-
-")
-
-
-
-(deftest p5 (view-to-string mary :subobjects t :category :html)
- "Person:
-- Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace
-
Addresses:
- - Home 321 Shady Lane
-
Phone Numbers:
- - Voice 367-9812
-
- - Fax 367-9813
-
-
-
- - Office 113 Main St.
-
Phone Numbers:
- - Main line 123-0001
-
- - Staff line 123-0002
-
- - Fax 123-0005
-
-
-
-
-
-
-")
-
-(deftest p6 (view-to-string mary :subobjects t :category :html-labels)
- "Person:
-- first-name Mary last-name Jackson dob Thu, 4 May 2000 03:02:01 resume Style & Grace
-
Addresses:
- - title Home street 321 Shady Lane
-
Phone Numbers:
- - title Voice phone-number 367-9812
-
- - title Fax phone-number 367-9813
-
-
-
- - title Office street 113 Main St.
-
Phone Numbers:
- - title Main line phone-number 123-0001
-
- - title Staff line phone-number 123-0002
-
- - title Fax phone-number 123-0005
-
-
-
-
-
-
-")
-
-(deftest p7 (view-to-string mary :subobjects t :category :xml)
- "Person:
-
- Addresses:
-
- Phone Numbers:
-
-
-
-
-
-
-
- Phone Numbers:
-
-
-
-
-
-
-
-
-
-
-
-")
-
-(deftest p8 (view-to-string mary :subobjects t :category :xml-labels)
- "Person:
-
- Addresses:
-
- Phone Numbers:
-
-
-
-
-
-
-
- Phone Numbers:
-
-
-
-
-
-
-
-
-
-
-
-")
-
-(deftest p9 (view-to-string mary :subobjects t :category :ie-xml-link-labels)
- "Person:
-
- Addresses:
-
- Phone Numbers:
-
-
-
-
-
-
-
- Phone Numbers:
-
-
-
-
-
-
-
-
-
-
-
-")
-
-(deftest p10 (view-to-string mary :subobjects t :category :xml-link-labels)
- "Person:
-
- Addresses:
-
- Phone Numbers:
-
-
-
-
-
-
-
- Phone Numbers:
-
-
-
-
-
-
-
-
-
-
-
-")
-
-(deftest p11 (view-to-string mary :subobjects t :category :xhtml)
- "Person:
--
-
Addresses:
- -
-
Phone Numbers:
-
- -
-
Phone Numbers:
-
-
-
-
-")
-
-(deftest p12 (view-to-string mary :subobjects t :category :xhtml-labels)
- "Person:
-- first-name Mary last-name Jackson dob Thu, 4 May 2000 03:02:01 resume Style & Grace
-
Addresses:
- - title Home street 321 Shady Lane
-
Phone Numbers:
- - title Voice phone-number 367-9812
-
- - title Fax phone-number 367-9813
-
-
-
- - title Office street 113 Main St.
-
Phone Numbers:
- - title Main line phone-number 123-0001
-
- - title Staff line phone-number 123-0002
-
- - title Fax phone-number 123-0005
-
-
-
-
-
-
-")
-
-(deftest p13 (view-to-string mary :subobjects t :category :xhtml-link-labels)
- "Person:
-- first-name dob resume
-
Addresses:
- - title street
-
Phone Numbers:
- - title
-
- - title
-
-
-
- - title street
-
Phone Numbers:
- - title
-
- - title
-
- - title
-
-
-
-
-
-
-")
-