r11456: remove empty line

[hyperobject.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index 7ee4ad4bd6adb735cc512451048e2c3825db657e..d6a7d2e2e2810e9dce1fa8be5b0c3c1465a5cfed 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -150,7 +150,6 @@
 (deftest :cv3 (equal (create-time mary) *now*)
   t)
 
-
 (deftest :s1 (slot-value (class-of mary) 'ho::user-name)
   "Person")
 
@@ -159,3 +158,6 @@
 
 (deftest :s3 (slot-value (class-of home) 'ho::user-name-plural)
   "Addresses")
+
+(deftest :s4 (slot-value (class-of mary) 'ho::description)
+  "A Person")