mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-05 09:01:40 -05:00
28 lines
1.3 KiB
EmacsLisp
28 lines
1.3 KiB
EmacsLisp
(require 'ein-console)
|
|
|
|
(ert-deftest ein:console-security-dir-string ()
|
|
:expected-result (if (eq system-type 'windows-nt) :failed :passed)
|
|
(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 ()
|
|
:expected-result (if (eq system-type 'windows-nt) :failed :passed)
|
|
(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 ()
|
|
:expected-result (if (eq system-type 'windows-nt) :failed :passed)
|
|
(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/"))))
|