diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:51:51 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:54:37 -0400 |
| commit | fd849e28022c03c7925fd2b4693c0497327adefc (patch) | |
| tree | 4dfe7dab78130aeed1aaef99f07570446a7cc058 /lisp/seam-test.el | |
| parent | c9d05000cc82bda0701a2a18bc886dcb4a9c9c1c (diff) | |
Rename seam-make-note
Diffstat (limited to 'lisp/seam-test.el')
| -rw-r--r-- | lisp/seam-test.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/seam-test.el b/lisp/seam-test.el index 3f8c4e5..4907b51 100644 --- a/lisp/seam-test.el +++ b/lisp/seam-test.el @@ -65,7 +65,7 @@ `(seam-test-environment (let ,options (let ,(cl-loop for (name . args) in varlist - collect `(,name (seam-make-note ,@args))) + collect `(,name (seam-create-note ,@args))) ;; FIXME: It's quite possible for tests to fail in such a way ;; that this does not kill the buffers. (unwind-protect (progn ,@body) @@ -102,7 +102,7 @@ (cl-loop for ret = (re-search-forward "<a href=\"/\\(.*\\)?\">" nil t) while ret collect (match-string 1))))) -(ert-deftest seam-test-make-note-private () +(ert-deftest seam-test-create-note-private () (should (equal '("private/note.org") @@ -110,7 +110,7 @@ ((note "Note")) (seam-test-list-files))))) -(ert-deftest seam-test-make-note-public () +(ert-deftest seam-test-create-note-public () (should (equal '("html/note.html" "public/note.org") @@ -118,7 +118,7 @@ ((note "Note" "public")) (seam-test-list-files))))) -(ert-deftest seam-test-make-note-weird-filename () +(ert-deftest seam-test-create-note-weird-filename () (should (equal '("./Weir'd file name!" ("private/weird-file-name.org")) @@ -153,22 +153,22 @@ (buffer-name note) (seam-get-title-from-file (buffer-file-name note)))))) -(ert-deftest seam-test-make-note-invalid-type () +(ert-deftest seam-test-create-note-invalid-type () (should-error (seam-test-environment - (kill-buffer (seam-make-note "Note" "invalid-type"))))) + (kill-buffer (seam-create-note "Note" "invalid-type"))))) -(ert-deftest seam-test-make-note-name-conflict () +(ert-deftest seam-test-create-note-name-conflict () (should-error (seam-test-environment - (kill-buffer (seam-make-note " Note 1 ")) - (kill-buffer (seam-make-note "Note_1"))))) + (kill-buffer (seam-create-note " Note 1 ")) + (kill-buffer (seam-create-note "Note_1"))))) -(ert-deftest seam-test-make-note-name-conflict-different-types () +(ert-deftest seam-test-create-note-name-conflict-different-types () (should-error (seam-test-environment - (kill-buffer (seam-make-note "Note")) - (kill-buffer (seam-make-note "Note" "public"))))) + (kill-buffer (seam-create-note "Note")) + (kill-buffer (seam-create-note "Note" "public"))))) (ert-deftest seam-test-rename-note () (should |