97 lines
4.0 KiB
EmacsLisp
97 lines
4.0 KiB
EmacsLisp
;;; spine-books-test.el — ERT tests for spine-books
|
|
|
|
(require 'ert)
|
|
(require 'cl-lib)
|
|
|
|
;; Load spine.el without starting the server
|
|
(setq spine-skip-server-start t)
|
|
(setq spine-org-file (expand-file-name "sample-books.org"
|
|
(file-name-directory
|
|
(directory-file-name
|
|
(file-name-directory load-file-name)))))
|
|
(load-file (expand-file-name "../spine.el"
|
|
(file-name-directory load-file-name)))
|
|
|
|
(ert-deftest spine-books-parses-sample ()
|
|
"spine-books returns correct plists for sample-books.org."
|
|
(let ((books (spine-books)))
|
|
(should books)
|
|
(should (= (length books) 6))))
|
|
|
|
(ert-deftest spine-books-first-book-has-all-fields ()
|
|
"Use of Weapons entry has all expected fields."
|
|
(let* ((books (spine-books))
|
|
(uow (cl-find "8c1e-uow" books
|
|
:key (lambda (b) (plist-get b :id))
|
|
:test #'equal)))
|
|
(should uow)
|
|
(should (equal (plist-get uow :title) "READING Use of Weapons"))
|
|
(should (equal (plist-get uow :shelf) "Fiction"))
|
|
(should (equal (plist-get uow :author) "Iain M. Banks"))
|
|
(should (equal (plist-get uow :isbn) "978-0316029193"))
|
|
(should (equal (plist-get uow :cover) "covers/use-of-weapons.jpg"))
|
|
(should (equal (plist-get uow :format) "audiobook"))
|
|
(should (equal (plist-get uow :rec_by) "Priya"))
|
|
(should (equal (plist-get uow :rec_note) "If you liked Player of Games, this one will wreck you"))
|
|
(should (equal (plist-get uow :tags) '("scifi" "literary")))
|
|
(should (equal (plist-get uow :notes)
|
|
'(("2026-03-02" "The two-track structure is doing something I can't name yet.")
|
|
("2026-03-07" "Zakalwe's competence reads as a wound.")
|
|
("2026-03-09" "The chapter numbering. Oh."))))))
|
|
|
|
(ert-deftest spine-books-missing-properties-are-nil ()
|
|
"Piranesi entry has nil for non-present properties."
|
|
(let* ((books (spine-books))
|
|
(pir (cl-find "5e8d-pir" books
|
|
:key (lambda (b) (plist-get b :id))
|
|
:test #'equal)))
|
|
(should pir)
|
|
(should (equal (plist-get pir :title) "WANT Piranesi"))
|
|
(should (equal (plist-get pir :shelf) "Fiction"))
|
|
(should (equal (plist-get pir :author) "Susanna Clarke"))
|
|
(should-not (plist-get pir :isbn))
|
|
(should-not (plist-get pir :cover))
|
|
(should-not (plist-get pir :format))
|
|
(should-not (plist-get pir :rec_by))
|
|
(should-not (plist-get pir :rec_note))
|
|
(should-not (plist-get pir :notes))))
|
|
|
|
(ert-deftest spine-books-read-book-has-rating ()
|
|
"Ancillary Justice has rating 5."
|
|
(let* ((books (spine-books))
|
|
(aj (cl-find "3a1b-aj" books
|
|
:key (lambda (b) (plist-get b :id))
|
|
:test #'equal)))
|
|
(should aj)
|
|
(should (equal (plist-get aj :shelf) "Science Fiction"))
|
|
(should (equal (plist-get aj :rating) "5"))
|
|
(should (= (length (plist-get aj :notes)) 3))))
|
|
|
|
(ert-deftest spine-books-empty-file-returns-empty-list ()
|
|
"Empty Org file returns empty list, not nil."
|
|
(let* ((tmp-file (make-temp-file "spine-test-" nil ".org"))
|
|
(spine-org-file tmp-file))
|
|
(unwind-protect
|
|
(let ((books (spine-books)))
|
|
(should (listp books))
|
|
(should (= (length books) 0)))
|
|
(delete-file tmp-file))))
|
|
|
|
(ert-deftest spine-books-missing-file-returns-nil ()
|
|
"Non-existent file returns nil."
|
|
(let ((spine-org-file "/tmp/spine-nonexistent-12345.org"))
|
|
(should-not (spine-books))))
|
|
|
|
(ert-deftest spine-shelves-returns-shelf-names ()
|
|
"spine-shelves returns all level-1 headlines as shelf names."
|
|
(let ((shelves (spine-shelves)))
|
|
(should (member "Fiction" shelves))
|
|
(should (member "Science Fiction" shelves))
|
|
(should (member "Non-Fiction" shelves))
|
|
(should (= (length shelves) 3))))
|
|
|
|
(ert-deftest spine-shelves-includes-empty-shelves ()
|
|
"spine-shelves includes empty shelves (shelves with no books)."
|
|
(let ((shelves (spine-shelves)))
|
|
(should (member "Non-Fiction" shelves))))
|