From 35f11a141d39522be7b070a50c985b0497a04964 Mon Sep 17 00:00:00 2001 From: NicoSimoski <128238379+NicoSimoski@users.noreply.github.com> Date: Thu, 27 Jul 2023 11:55:00 +0200 Subject: [PATCH] Update tests.lisp - adapted initialization and testcase to the values of the implementation in other programming languages --- common-lisp-parachute/tests/tests.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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")))