diff options
Diffstat (limited to 'test/src/keymap-tests.el')
| -rw-r--r-- | test/src/keymap-tests.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el index 6411cd1f0d4..f58dac87401 100644 --- a/test/src/keymap-tests.el +++ b/test/src/keymap-tests.el | |||
| @@ -248,19 +248,6 @@ g .. h foo | |||
| 248 | 0 .. 3 foo | 248 | 0 .. 3 foo |
| 249 | "))))) | 249 | "))))) |
| 250 | 250 | ||
| 251 | |||
| 252 | ;;;; apropos-internal | ||
| 253 | |||
| 254 | (ert-deftest keymap-apropos-internal () | ||
| 255 | (should (equal (apropos-internal "^next-line$") '(next-line))) | ||
| 256 | (should (>= (length (apropos-internal "^help")) 100)) | ||
| 257 | (should-not (apropos-internal "^test-a-missing-symbol-foo-bar-zut$"))) | ||
| 258 | |||
| 259 | (ert-deftest keymap-apropos-internal/predicate () | ||
| 260 | (should (equal (apropos-internal "^next-line$" #'commandp) '(next-line))) | ||
| 261 | (should (>= (length (apropos-internal "^help" #'commandp)) 15)) | ||
| 262 | (should-not (apropos-internal "^next-line$" #'keymapp))) | ||
| 263 | |||
| 264 | (provide 'keymap-tests) | 251 | (provide 'keymap-tests) |
| 265 | 252 | ||
| 266 | ;;; keymap-tests.el ends here | 253 | ;;; keymap-tests.el ends here |