diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-08-04 23:22:18 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-08-04 23:23:36 +0100 |
commit | baa9369f11908a03b5fbd98fe60cebc9daa89d48 (patch) | |
tree | ecb29bb9d43e494fe1673344c2adae17f3cd90a5 /test | |
parent | 646357142fe55969f059f229e7a978795b24b3ff (diff) |
[#1236] Add two more functions for use in cider-repl-prompt-function
Diffstat (limited to 'test')
-rw-r--r-- | test/cider-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/cider-tests.el b/test/cider-tests.el index a1fac937..ec57b18f 100644 --- a/test/cider-tests.el +++ b/test/cider-tests.el @@ -570,6 +570,14 @@ (noflet ((thing-at-point (thing) "boogie>")) (should (string= (cider-symbol-at-point) "boogie>")))) +(ert-deftest cider-repl-prompt-function () + (should (equal (cider-repl-prompt-default "some.pretty.long.namespace.name") + "some.pretty.long.namespace.name> ")) + (should (equal (cider-repl-prompt-lastname "some.pretty.long.namespace.name") + "name> ")) + (should (equal (cider-repl-prompt-abbreviated "some.pretty.long.namespace.name") + "s.p.l.n.name> "))) + (ert-deftest test-cider--url-to-file () (should (equal "/space test" (cider--url-to-file "file:/space%20test"))) (should (equal "C:/space test" (cider--url-to-file "file:/C:/space%20test")))) |