projects
/
hyperobject.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for debian release 2.13-1
[hyperobject.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index ff66b6fdd760fe46fa0edc78be50d096fa7537e0..3859844e077f5d322d4335d03db0398f58fc4daf 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-114,11
+114,11
@@
(rem-all-tests)
(deftest :p1 (view-to-string mary :vid :compact-text) "Person:
(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:
")
(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:
Addresses:
Home 321 Shady Lane 10
Phone Numbers:
@@
-133,12
+133,12
@@
(deftest :p3 (view-to-string mary :vid :compact-text-labels)
"Person:
(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:
")
(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)
")
(deftest :cv1 (years-at-address home)