[elpa] 09/15: Add unbound commands test for C-x C-s

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit a8c3342c24dac6af7189a99081c36a60ded04e35
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 3 12:25:52 2014 -0500

    Add unbound commands test for C-x C-s
---
 ergoemacs-test.el |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 1affaf2..e4ea9f4 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -1016,6 +1016,10 @@ Selected mark would not be cleared after paste."
                     "\\[package-menu-mark-upgrades]")))
   (kill-buffer (current-buffer)))
 
+(ert-deftest ergoemacs-test-unbind-commands-active ()
+  "Make sure the unbound keys work"
+  (should (eq 'ergoemacs-undefined (ergoemacs-real-key-binding (read-kbd-macro 
"C-x C-s")))))
+
 ;; (ert-deftest ergoemacs-test-5.3.7 ()
 ;;   "Test Ergoemacs 5.3.7 keys"
 ;;   (let ((ergoemacs-test-fn t))