Mary Jackson Thu, 4 May 2000 03:02:01 Style & Grace
")
-(deftest :s1 (years-at-address home)
+(deftest :cv1 (years-at-address home)
10)
-(deftest :s2 (years-at-address office)
+(deftest :cv2 (years-at-address office)
5)
-(deftest :cv1 (equal (create-time mary) *now*)
+(deftest :cv3 (equal (create-time mary) *now*)
t)
+(deftest :s1 (slot-value (class-of mary) 'ho::user-name)
+ "Person")
+
+(deftest :s2 (slot-value (class-of mary) 'ho::user-name-plural)
+ "Persons")
+
+(deftest :s3 (slot-value (class-of home) 'ho::user-name-plural)
+ "Addresses")
+
+(deftest :s4 (slot-value (class-of mary) 'ho::description)
+ "A Person")