X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=tests.lisp;h=d6a7d2e2e2810e9dce1fa8be5b0c3c1465a5cfed;hp=5f698bd69632e9bef3249918cf2f22f3a9fa467a;hb=6cfefea96a65eb54d12d10e61a1d2b9ecaddc8ae;hpb=90c2e4c13bd89c48de9fe0da126547447b7b9e01

diff --git a/tests.lisp b/tests.lisp
index 5f698bd..d6a7d2e 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -141,12 +141,23 @@
   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")