branch: elpa/typescript-mode
commit bbbe50aadecb4d3b71dbda8cb163f5272cc94e00
Merge: b4109ac220 ae32e1c28f
Author: Jostein Kjønigsen <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #140 from phst/find-file
Use ‘insert-file-contents’ instead of ‘find-file’ for tests.
---
typescript-mode-general-tests.el | 52 ++++++++++++++++++++--------------------
1 file changed, 26 insertions(+), 26 deletions(-)
diff --git a/typescript-mode-general-tests.el b/typescript-mode-general-tests.el
index d9def0a2f6..3ccdb0539f 100644
--- a/typescript-mode-general-tests.el
+++ b/typescript-mode-general-tests.el
@@ -19,7 +19,8 @@
(untabify (point-min) (point-max)))
(ert-deftest indentation-reference-document-is-reflowed-correctly ()
- (let ((buffer (find-file "test-files/indentation-reference-document.ts")))
+ (with-temp-buffer
+ (insert-file-contents "test-files/indentation-reference-document.ts")
;; double ensure mode is active
(typescript-mode)
@@ -30,61 +31,60 @@
(let ((typescript-indent-switch-clauses nil))
(typescript-test-indent-all)
(should (string-equal test-reference
- (typescript-test-get-doc)))))
- (kill-buffer buffer)))
+ (typescript-test-get-doc)))))))
(ert-deftest switch-case-indent-default ()
- (let ((buffer (find-file "test-files/switch-case-indent-default.ts")))
+ (with-temp-buffer
+ (insert-file-contents "test-files/switch-case-indent-default.ts")
(typescript-mode)
(let ((test-reference (typescript-test-get-doc)))
(typescript-test-indent-all)
(should (string-equal test-reference
- (typescript-test-get-doc))))
- (kill-buffer buffer)))
+ (typescript-test-get-doc))))))
(ert-deftest switch-case-indent-disabled ()
- (let ((buffer (find-file "test-files/switch-case-indent-disabled.ts"))
- (typescript-indent-switch-clauses nil))
- (typescript-mode)
- (let ((test-reference (typescript-test-get-doc)))
- (typescript-test-indent-all)
- (should (string-equal test-reference
- (typescript-test-get-doc))))
- (kill-buffer buffer)))
+ (with-temp-buffer
+ (insert-file-contents "test-files/switch-case-indent-disabled.ts")
+ (let ((typescript-indent-switch-clauses nil))
+ (typescript-mode)
+ (let ((test-reference (typescript-test-get-doc)))
+ (typescript-test-indent-all)
+ (should (string-equal test-reference
+ (typescript-test-get-doc)))))))
(ert-deftest list-items-indent-default ()
- (with-current-buffer (find-file "test-files/list-items-indent-default.ts")
+ (with-temp-buffer
+ (insert-file-contents "test-files/list-items-indent-default.ts")
(typescript-mode)
(let ((test-reference (typescript-test-get-doc)))
(typescript-test-indent-all)
- (should (string= test-reference (typescript-test-get-doc))))
- (kill-buffer)))
+ (should (string= test-reference (typescript-test-get-doc))))))
(ert-deftest list-items-indent-default-not-comma-first ()
- (with-current-buffer (find-file
"test-files/list-items-indent-comma-first.ts")
+ (with-temp-buffer
+ (insert-file-contents "test-files/list-items-indent-comma-first.ts")
(typescript-mode)
(let ((test-reference (typescript-test-get-doc)))
(typescript-test-indent-all)
- (should-not (string= test-reference (typescript-test-get-doc))))
- (kill-buffer)))
+ (should-not (string= test-reference (typescript-test-get-doc))))))
(ert-deftest list-items-indent-comma-first ()
- (with-current-buffer (find-file
"test-files/list-items-indent-comma-first.ts")
+ (with-temp-buffer
+ (insert-file-contents "test-files/list-items-indent-comma-first.ts")
(typescript-mode)
(let ((test-reference (typescript-test-get-doc))
(typescript-indent-list-items nil))
(typescript-test-indent-all)
- (should (string= test-reference (typescript-test-get-doc))))
- (kill-buffer)))
+ (should (string= test-reference (typescript-test-get-doc))))))
(ert-deftest list-items-indent-comma-first-not-default ()
- (with-current-buffer (find-file "test-files/list-items-indent-default.ts")
+ (with-temp-buffer
+ (insert-file-contents "test-files/list-items-indent-default.ts")
(typescript-mode)
(let ((test-reference (typescript-test-get-doc))
(typescript-indent-list-items nil))
(typescript-test-indent-all)
- (should-not (string= test-reference (typescript-test-get-doc))))
- (kill-buffer)))
+ (should-not (string= test-reference (typescript-test-get-doc))))))
(defun get-all-matched-strings (to-match)
(let (result)
