Skip to content

Commit

Permalink
Improve formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
@tralph3
tralph3 committed Apr 23, 2024
1 parent e382f1a commit a5ae7a1
Showing 1 changed file with 95 additions and 77 deletions.
172 changes: 95 additions & 77 deletions conner-tests.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -33,114 +33,132 @@
(should (equal (getenv "VAR1") nil))))

(ert-deftest conner-test-add-command ()
(with-temp-env (conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should (equal (get-conner-contents)
'(("New command" "echo \"test\"" "compile"))))))
(with-temp-env
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should (equal (get-conner-contents)
'(("New command" "echo \"test\"" "compile"))))))

(ert-deftest conner-test-add-existing-command ()
(with-temp-env (conner-add-command conner-root-dir "Test command" "yes test" "compile")
(should-error (conner-add-command conner-root-dir "Test command" "other stuff" "compile"))))
(with-temp-env
(conner-add-command conner-root-dir "Test command" "yes test" "compile")
(should-error (conner-add-command conner-root-dir "Test command" "other stuff" "compile"))))

(ert-deftest conner-test-add-with-default-command-type ()
(with-temp-env (let ((conner-command-types-alist `(("new type" ,#'car)))
(conner-default-command-type "new type"))
(conner-add-command conner-root-dir "Some" "command")
(should (equal (get-conner-contents) '(("Some" "command" "new type")))))))
(with-temp-env
(let ((conner-command-types-alist `(("new type" ,#'car)))
(conner-default-command-type "new type"))
(conner-add-command conner-root-dir "Some" "command")
(should (equal (get-conner-contents) '(("Some" "command" "new type")))))))

(ert-deftest conner-test-delete-command ()
(with-temp-env (conner-add-command conner-root-dir "Delete me" "please" "compile")
(conner-delete-command conner-root-dir "Delete me")
(should (equal (get-conner-contents) nil))
(conner-add-command conner-root-dir "Don't delete" "me" "compile")
(conner-add-command conner-root-dir "Do delete" "me" "compile")
(conner-delete-command conner-root-dir "Do delete")
(should (equal (get-conner-contents) '(("Don't delete" "me" "compile"))))))
(with-temp-env
(conner-add-command conner-root-dir "Delete me" "please" "compile")
(conner-delete-command conner-root-dir "Delete me")
(should (equal (get-conner-contents) nil))
(conner-add-command conner-root-dir "Don't delete" "me" "compile")
(conner-add-command conner-root-dir "Do delete" "me" "compile")
(conner-delete-command conner-root-dir "Do delete")
(should (equal (get-conner-contents) '(("Don't delete" "me" "compile"))))))

(ert-deftest conner-test-update-command ()
(with-temp-env (conner-add-command conner-root-dir "Tpyo in nmae" "tpyo" "comple")
(conner-update-command conner-root-dir "Tpyo in nmae" "Typo in name" "typst" "compile")
(should (equal (get-conner-contents) '(("Typo in name" "typst" "compile"))))))
(with-temp-env
(conner-add-command conner-root-dir "Tpyo in nmae" "tpyo" "comple")
(conner-update-command conner-root-dir "Tpyo in nmae" "Typo in name" "typst" "compile")
(should (equal (get-conner-contents) '(("Typo in name" "typst" "compile"))))))

(ert-deftest conner-test-run-command ()
(with-temp-env (let ((conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))
(with-temp-env
(let ((conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))

(ert-deftest conner-test-construct-file-path ()
(with-temp-env (should (equal (conner--construct-file-path conner-root-dir)
(file-name-concat conner-root-dir conner-file-name)))))
(with-temp-env
(should (equal (conner--construct-file-path conner-root-dir)
(file-name-concat conner-root-dir conner-file-name)))))

(ert-deftest conner-test-construct-local-file-path ()
(with-temp-env (should (equal (conner--construct-local-file-path conner-root-dir)
(expand-file-name (file-name-concat user-emacs-directory "conner/!tmp.#conner#"))))))
(with-temp-env
(should (equal (conner--construct-local-file-path conner-root-dir)
(expand-file-name (file-name-concat user-emacs-directory "conner/!tmp.#conner#"))))))

(ert-deftest conner-test-add-local-command ()
(with-temp-env (let ((current-prefix-arg 4))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path)))))
(with-temp-env
(let ((current-prefix-arg 4))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path)))))

(ert-deftest conner-test-delete-local-command ()
(with-temp-env (let ((current-prefix-arg 4))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(conner-delete-command conner-root-dir "New command")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path))
(should (equal (get-local-conner-contents) nil)))))
(with-temp-env
(let ((current-prefix-arg 4))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(conner-delete-command conner-root-dir "New command")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path))
(should (equal (get-local-conner-contents) nil)))))

(ert-deftest conner-test-update-local-command ()
(with-temp-env (let ((current-prefix-arg 4))
(conner-update-command conner-root-dir "Old command" "New command" "echo \"test\"" "compile")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path))
(should (equal (get-local-conner-contents) '(("New command" "echo \"test\"" "compile")))))))
(with-temp-env
(let ((current-prefix-arg 4))
(conner-update-command conner-root-dir "Old command" "New command" "echo \"test\"" "compile")
(should (file-exists-p conner-local-file-path))
(should-not (file-exists-p conner-file-path))
(should (equal (get-local-conner-contents) '(("New command" "echo \"test\"" "compile")))))))

(ert-deftest conner-test-run-local-command ()
(with-temp-env (let ((current-prefix-arg 4)
(conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))
(with-temp-env
(let ((current-prefix-arg 4)
(conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))

(ert-deftest conner-test-read-env-file ()
(with-temp-env (pollute-env-file)
(let ((conner-command-types-alist `(("test type" ,#'fake-runner-check-env))))
(conner-add-command conner-root-dir "Run me" "should exist" "test type")
(conner-run-command conner-root-dir "Run me"))))
(with-temp-env
(pollute-env-file)
(let ((conner-command-types-alist `(("test type" ,#'fake-runner-check-env))))
(conner-add-command conner-root-dir "Run me" "should exist" "test type")
(conner-run-command conner-root-dir "Run me"))))

(ert-deftest conner-test-dont-read-env-file ()
(with-temp-env (pollute-env-file)
(let ((conner-command-types-alist `(("test type" ,#'fake-runner-check-env)))
(conner-read-env-file nil))
(conner-add-command conner-root-dir "Run me" "echo $VAR1" "test type")
(conner-run-command conner-root-dir "Run me"))))
(with-temp-env
(pollute-env-file)
(let ((conner-command-types-alist `(("test type" ,#'fake-runner-check-env)))
(conner-read-env-file nil))
(conner-add-command conner-root-dir "Run me" "echo $VAR1" "test type")
(conner-run-command conner-root-dir "Run me"))))

(ert-deftest conner-test-add-local-command-with-default-behavior ()
(with-temp-env (let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path)))))
(with-temp-env
(let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path)))))

(ert-deftest conner-test-delete-local-command-with-default-behavior ()
(with-temp-env (let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(conner-delete-command conner-root-dir "New command")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path))
(should (equal (get-conner-contents) nil)))))
(with-temp-env
(let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-add-command conner-root-dir "New command" "echo \"test\"" "compile")
(conner-delete-command conner-root-dir "New command")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path))
(should (equal (get-conner-contents) nil)))))

(ert-deftest conner-test-update-local-command-with-default-behavior ()
(with-temp-env (let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-update-command conner-root-dir "Old command" "New command" "echo \"test\"" "compile")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path))
(should (equal (get-conner-contents) '(("New command" "echo \"test\"" "compile")))))))
(with-temp-env
(let ((current-prefix-arg 4)
(conner-default-file-behavior 'local))
(conner-update-command conner-root-dir "Old command" "New command" "echo \"test\"" "compile")
(should-not (file-exists-p conner-local-file-path))
(should (file-exists-p conner-file-path))
(should (equal (get-conner-contents) '(("New command" "echo \"test\"" "compile")))))))

(ert-deftest conner-test-run-local-command-with-default-behavior ()
(with-temp-env (let ((current-prefix-arg 4)
(conner-default-file-behavior 'local)
(conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))
(with-temp-env
(let ((current-prefix-arg 4)
(conner-default-file-behavior 'local)
(conner-command-types-alist `(("test type" ,#'fake-command-runner))))
(conner-add-command conner-root-dir "Run me" "now" "test type")
(conner-run-command conner-root-dir "Run me"))))

0 comments on commit a5ae7a1

Please sign in to comment.