X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=tests.lisp;h=3859844e077f5d322d4335d03db0398f58fc4daf;hp=ff66b6fdd760fe46fa0edc78be50d096fa7537e0;hb=HEAD;hpb=4a772392fd77659637f19c6d0b69584974a40074 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)