X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=3859844e077f5d322d4335d03db0398f58fc4daf;hb=4b068ea93dbcc7786e665b6d2367e0c33d5dbde1;hp=ff66b6fdd760fe46fa0edc78be50d096fa7537e0;hpb=4a772392fd77659637f19c6d0b69584974a40074;p=hyperobject.git diff --git a/tests.lisp b/tests.lisp index ff66b6f..3859844 100644 --- a/tests.lisp +++ b/tests.lisp @@ -114,11 +114,11 @@ (rem-all-tests) (deftest :p1 (view-to-string mary :vid :compact-text) "Person: - Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace + Mary Jackson Thu 4 May 2000 03:02:01 Style & Grace ") (deftest :p2 (view-to-string mary :subobjects t :vid :compact-text) "Person: - Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace + Mary Jackson Thu 4 May 2000 03:02:01 Style & Grace Addresses: Home 321 Shady Lane 10 Phone Numbers: @@ -133,12 +133,12 @@ (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 + first-name Mary last-name Jackson dob Thu 4 May 2000 03:02:01 resume Style & Grace ") (deftest :p4 (view-to-string mary :vid :compact-text) "Person: - Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace + Mary Jackson Thu 4 May 2000 03:02:01 Style & Grace ") (deftest :cv1 (years-at-address home)