branch: externals/m-buffer
commit 22760408a5e5a68ff315651b1188861614475b67
Author: Phillip Lord <[email protected]>
Commit: Phillip Lord <[email protected]>
Updated normalize tests to cope with extra widen argument.
---
test/m-buffer-test.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/test/m-buffer-test.el b/test/m-buffer-test.el
index 112a88d44d..bb8ce5d03c 100644
--- a/test/m-buffer-test.el
+++ b/test/m-buffer-test.el
@@ -54,31 +54,32 @@
;; just buffer and regexp
(should
(equal
- (list (current-buffer) "regexp" nil nil nil)
+ (list (current-buffer) "regexp" nil nil nil nil)
(m-buffer-normalize-args
(list (current-buffer) "regexp"))))
(should
(equal
- (list (current-buffer) "regexp" nil nil nil)
+ (list (current-buffer) "regexp" nil nil nil nil)
(m-buffer-normalize-args
(list (current-buffer) :regexp "regexp"))))
(should
(equal
- (list (current-buffer) "regexp" 1 2 3)
+ (list (current-buffer) "regexp" 1 2 3 4)
(m-buffer-normalize-args
- (list (current-buffer) "regexp" :begin 1 :end 2 :post-match 3))))
-
+ (list (current-buffer) "regexp" :begin 1 :end 2 :post-match 3 :widen 4))))
+
(should
(equal
- (list (current-buffer) "regexp" 1 2 3)
+ (list (current-buffer) "regexp" 1 2 3 4)
(m-buffer-normalize-args
(list :buffer (current-buffer)
:regexp "regexp"
:begin 1
:end 2
- :post-match 3)))))
+ :post-match 3
+ :widen 4)))))
(ert-deftest m-buffer-matches ()
