diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-01 15:24:12 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-01 15:24:12 +0300 |
| commit | 1673d06dff3678aa88af9dd2d28931274a8de4b2 (patch) | |
| tree | a5bb3a1484cf33f659d667563efd8e955828a017 /tests/session.scm | |
| parent | NEWS: Update (diff) | |
| download | guile-ssh-1673d06dff3678aa88af9dd2d28931274a8de4b2.tar.gz | |
session.scm: Implement SSH config parsing
* modules/ssh/session.scm (make-session): Accept 'config' option.
(session-parse-config!): New procedure.
* libguile-ssh/session-func.c (gssh_session_parse_config): New procedure.
* tests/common.scm (%config): Export the new global symbol.
* doc/api-sessions.texi: Update.
* tests/config: Add to the repository.
* tests/session.scm ("session-parse-config!"): New test case.
* NEWS: Update.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/session.scm b/tests/session.scm index e5c054c..c436881 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -128,6 +128,14 @@ ;; Make sure that default callbacks value is '#f'. (equal? (session-get (%make-session) 'callbacks) #f)))) +(test-assert "session-parse-config!" + (let ((session (make-session #:host "example"))) + (session-parse-config! session %config) + (format (current-error-port) "session: ~a~%" session) + (and (string=? (session-get session 'host) "example.org") + (string=? (session-get session 'user) "alice") + (= (session-get session 'port) 2222)))) + (test-assert "make-session" (make-session #:host "localhost" #:port 22 |