diff options
Diffstat (limited to 'tests/test-dev-fkeys--projectile-capture-cmd.el')
| -rw-r--r-- | tests/test-dev-fkeys--projectile-capture-cmd.el | 27 |
1 files changed, 10 insertions, 17 deletions
diff --git a/tests/test-dev-fkeys--projectile-capture-cmd.el b/tests/test-dev-fkeys--projectile-capture-cmd.el index bc4c7684..85d4603f 100644 --- a/tests/test-dev-fkeys--projectile-capture-cmd.el +++ b/tests/test-dev-fkeys--projectile-capture-cmd.el @@ -23,8 +23,7 @@ (ert-deftest test-dev-fkeys-projectile-capture-cmd-stores-prior-value () "Normal: captures the cached cmd at the project root into the state plist." - (let* ((cj/--projectile-revert-state nil) - (projectile-compile-cmd-map (make-hash-table :test 'equal)) + (let* ((projectile-compile-cmd-map (make-hash-table :test 'equal)) state) (puthash "/p/" "make build" projectile-compile-cmd-map) (cl-letf (((symbol-function 'cj/--f4-project-root) (lambda () "/p/"))) @@ -32,43 +31,37 @@ (should (equal (plist-get state :map) 'projectile-compile-cmd-map)) (should (equal (plist-get state :root) "/p/")) - (should (equal (plist-get state :prior) "make build")) - (should (null cj/--projectile-revert-state)))) + (should (equal (plist-get state :prior) "make build")))) (ert-deftest test-dev-fkeys-projectile-capture-cmd-no-prior-stores-nil () "Normal: when no cmd is cached, captures :prior nil — distinct from \"didn't capture at all\" because :map and :root are still set." - (let* ((cj/--projectile-revert-state nil) - (projectile-test-cmd-map (make-hash-table :test 'equal)) + (let* ((projectile-test-cmd-map (make-hash-table :test 'equal)) state) (cl-letf (((symbol-function 'cj/--f4-project-root) (lambda () "/p/"))) (setq state (cj/--projectile-capture-cmd 'projectile-test-cmd-map))) (should (eq (plist-get state :map) 'projectile-test-cmd-map)) - (should (null (plist-get state :prior))) - (should (null cj/--projectile-revert-state)))) + (should (null (plist-get state :prior))))) ;;; Boundary Cases (ert-deftest test-dev-fkeys-projectile-capture-cmd-nil-root-leaves-state-nil () "Boundary: when no project root resolves, state stays nil so the finish hook treats it as a no-op." - (let ((cj/--projectile-revert-state nil) - (projectile-compile-cmd-map (make-hash-table :test 'equal))) + (let ((projectile-compile-cmd-map (make-hash-table :test 'equal))) (cl-letf (((symbol-function 'cj/--f4-project-root) (lambda () nil))) - (cj/--projectile-capture-cmd 'projectile-compile-cmd-map)) - (should (null cj/--projectile-revert-state)))) + (should-not (cj/--projectile-capture-cmd 'projectile-compile-cmd-map))))) ;;; Error Cases (ert-deftest test-dev-fkeys-projectile-capture-cmd-unbound-map-leaves-state-nil () "Error: when the cmd-map symbol is unbound (projectile not loaded), state stays nil and no error is raised." - (let ((cj/--projectile-revert-state nil)) - (cl-letf (((symbol-function 'cj/--f4-project-root) (lambda () "/p/"))) - ;; Use a clearly-unbound symbol to simulate projectile-not-loaded. - (cj/--projectile-capture-cmd 'cj-test--definitely-not-bound-xyzzy)) - (should (null cj/--projectile-revert-state)))) + (cl-letf (((symbol-function 'cj/--f4-project-root) (lambda () "/p/"))) + ;; Use a clearly-unbound symbol to simulate projectile-not-loaded. + (should-not + (cj/--projectile-capture-cmd 'cj-test--definitely-not-bound-xyzzy)))) (provide 'test-dev-fkeys--projectile-capture-cmd) ;;; test-dev-fkeys--projectile-capture-cmd.el ends here |
