[elpa] externals/m-buffer 22760408a5 013/115: Updated normalize tests to cope with extra widen argument.

[ELPA Syncer]

branch: externals/m-buffer
commit 22760408a5e5a68ff315651b1188861614475b67
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    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 ()