diff --git a/common-lisp-parachute/tests/tests.lisp b/common-lisp-parachute/tests/tests.lisp
index d1752acf..8cdc59a3 100644
--- a/common-lisp-parachute/tests/tests.lisp
+++ b/common-lisp-parachute/tests/tests.lisp
@@ -2,11 +2,11 @@
 
 (define-test gilded-rose-testsuite)
 
-(define-test "An item in gilded-rose is updated."
+(define-test "Test foo."
   :parent gilded-rose-testsuite
-  (let* ((an-item (make-instance 'item :name "An item" :sell-in 1 :quality 1))
+  (let* ((an-item (make-instance 'item :name "foo" :sell-in 0 :quality 0))
 	 (some-items (list an-item))
 	 (my-app (make-instance 'gilded-rose :items some-items)))
     (update-quality my-app)
-    (is equal (slot-value (first (slot-value my-app 'items)) 'name) "Fix me")))
+    (is equal (slot-value (first (slot-value my-app 'items)) 'name) "fixme")))