[nongnu] elpa/evil-numbers 9423e4cb8f 142/145: Tests: add simple-hex-negative-to-positive

[ELPA Syncer]

branch: elpa/evil-numbers
commit 9423e4cb8f784f8871f28e87a8ae5fcaa5bc9eee
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Tests: add simple-hex-negative-to-positive
---
 tests/evil-numbers-test.el | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/tests/evil-numbers-test.el b/tests/evil-numbers-test.el
index 71d4db00ad..9d646e4fb9 100644
--- a/tests/evil-numbers-test.el
+++ b/tests/evil-numbers-test.el
@@ -113,16 +113,30 @@
      (should (equal " 0xFFF |" (buffer-string))))))
 
 ;; See bug #17.
-(ert-deftest simple-hex-negative ()
-  "Check hexadecimal is detected at all parts."
+(ert-deftest simple-hex-positive-to-negative ()
+  "Change negative hex to negative."
   (let ((text-expected " -0x1| ")
-        (text-initial " 0x0 "))
+        (text-initial " 0x1 "))
     (dotimes (i 4)
       (with-evil-numbers-test
        text-initial
        (dotimes (_ i)
          (simulate-input "l"))
-       (simulate-input (kbd "C-x") "a|" (kbd "<escape>"))
+       (simulate-input (kbd "C-x") (kbd "C-x"))
+       (simulate-input "a|" (kbd "<escape>"))
+       (should (equal text-expected (buffer-string)))))))
+
+(ert-deftest simple-hex-negative-to-positive ()
+  "Change negative hex to positive."
+  (let ((text-expected " 0x1| ")
+        (text-initial " -0x1 "))
+    (dotimes (i 5)
+      (with-evil-numbers-test
+       text-initial
+       (dotimes (_ i)
+         (simulate-input "l"))
+       (simulate-input (kbd "C-a") (kbd "C-a"))
+       (simulate-input "a|" (kbd "<escape>"))
        (should (equal text-expected (buffer-string)))))))
 
 (ert-deftest simple-nop-non-number ()