diff options
author | Sean Allred <code@seanallred.com> | 2014-11-12 17:58:10 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-12 17:58:10 -0500 |
commit | 2c172707073d6a8e558d81999d0ef14b60acb0af (patch) | |
tree | 65a487cc3e5a6abab3a73ffda63b40504bb02869 /test | |
parent | 9c2e07f01f41c223b07356c4bd495e6f7edd1d0f (diff) |
Move defmacro to head of file
Diffstat (limited to 'test')
-rw-r--r-- | test/tests.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/tests.el b/test/tests.el index a66394c..b48761d 100644 --- a/test/tests.el +++ b/test/tests.el @@ -20,6 +20,14 @@ (insert-file-contents file) (read (buffer-string)))))) +(defmacro line-should-match (regexp) + "" + `(let ((line (buffer-substring-no-properties + (line-beginning-position) + (line-end-position)))) + (message "Line here is: %S" line) + (should (string-match ,regexp line)))) + (setq sx-request-remaining-api-requests-message-threshold 50000 debug-on-error t @@ -89,14 +97,6 @@ ((1 . alpha) (2 . beta))] '(1 2 3))))) -(defmacro line-should-match (regexp) - "" - `(let ((line (buffer-substring-no-properties - (line-beginning-position) - (line-end-position)))) - (message "Line here is: %S" line) - (should (string-match ,regexp line)))) - (ert-deftest question-list-display () (cl-letf (((symbol-function #'sx-request-make) (lambda (&rest _) sx-test-data-questions))) |