X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=tests.lisp;h=6a1853a8189386ee4e452fdf89d1eae0ab62c167;hp=31bd7fafeb8bf239182e9e736c8de67ca238d285;hb=5de0b4ebdcffc6438060a08ceeb582f013aca25b;hpb=ad24378821413cd0ca0f4f13cc6cc8945fc593ac
diff --git a/tests.lisp b/tests.lisp
index 31bd7fa..6a1853a 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: tests.lisp,v 1.8 2003/06/17 06:33:54 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@ -127,275 +127,3 @@
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
-
-
-
-
-
-
-")
-