mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-08 10:31:38 -05:00
fdf626cc98
In theory these tests are for IPython 2.x. Still need to work out how to include all this in travis.
25 lines
1.1 KiB
EmacsLisp
25 lines
1.1 KiB
EmacsLisp
(require 'ein-console)
|
|
|
|
(ert-deftest ein:console-security-dir-string ()
|
|
(let ((ein:console-security-dir "/some/dir/"))
|
|
(should (equal (ein:console-security-dir-get "DUMMY-URL-OR-PORT")
|
|
ein:console-security-dir))))
|
|
|
|
(ert-deftest ein:console-security-dir-list ()
|
|
(let ((ein:console-security-dir
|
|
'((8888 . "/dir/8888/")
|
|
("htttp://dummy.org" . "/dir/http/")
|
|
(7777 . my-secret-directory)
|
|
(default . "/dir/default/")))
|
|
(my-secret-directory "/dir/secret/"))
|
|
(should (equal (ein:console-security-dir-get 8888) "/dir/8888/"))
|
|
(should (equal (ein:console-security-dir-get "htttp://dummy.org")
|
|
"/dir/http/"))
|
|
(should (equal (ein:console-security-dir-get 7777) "/dir/secret/"))
|
|
(should (equal (ein:console-security-dir-get 9999) "/dir/default/"))))
|
|
|
|
(ert-deftest ein:console-security-dir-func ()
|
|
(let ((ein:console-security-dir
|
|
'(lambda (x) (should (equal x "DUMMY-URL-OR-PORT")) "/dir/")))
|
|
(should (equal (ein:console-security-dir-get "DUMMY-URL-OR-PORT")
|
|
"/dir/"))))
|