* Amendments

- Initial test modified to be similar to Clojure version
- update-quality modified to read from make-item directly. Helper methods removed
This commit is contained in:
mgd authored and Peter Kofler committed 2024-10-18 15:32:03 +02:00
1 parent 3615cfb8ab
commit 91ebc85a70
3 files changed
+15 -26

No files matched your search

+4 -3
View File
@@ -1,9 +1,10 @@
(require 'ert)
(require 'gilded-rose)
(defconst foo (make-item "foo" 20 10))
(ert-deftest check-name-of-item ()
"Test that item is called sweets. This test should fail!"
(let ((sweets (make-item "sweets" 5 5)))
(should (string= (item-name sweets) "You should change this"))))
(should (string= "fixme" (plist-get foo :name))))
(ert-run-tests-interactively t)