X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=tests.lisp;h=3cfb19fe953bdb5e1e58cad0d677339c40bd6ae5;hp=7ee4ad4bd6adb735cc512451048e2c3825db657e;hb=57e04b430882b68decd80bb87c75fe482cdbf711;hpb=4daae1a3c91e61b3df8fd87d419391b57e2914df

diff --git a/tests.lisp b/tests.lisp
index 7ee4ad4..3cfb19f 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -159,3 +159,6 @@
 
 (deftest :s3 (slot-value (class-of home) 'ho::user-name-plural)
   "Addresses")
+
+(deftest :s4 (slot-value (class-of mary) 'ho::description)
+  "A Person")