+
+(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 :vid :compact-text)
+"Person:
+ Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace
+")
+
+(deftest :s1 (years-at-address home)
+ 10)
+
+(deftest :s2 (years-at-address office)
+ 5)
+
+(deftest :cv1 (equal (create-time mary) *now*)
+ t)
+