diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-08-09 18:57:00 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-08-09 18:57:00 +0400 |
| commit | 991903ad89420edb3ba28ce2ab73b293267d9687 (patch) | |
| tree | 40e140f4ea66cdf782e4591d1c5a77bf9b93b391 /tests/session.scm | |
| parent | ssh/channel-type.c (_ssh_channel_to_scm): Rename (diff) | |
| download | guile-ssh-991903ad89420edb3ba28ce2ab73b293267d9687.tar.gz | |
ssh/session-func.c (guile_ssh_session_get): Handle `port' option
* ssh/session-func.c (guile_ssh_session_get): Handle `port' option.
* doc/api-sessions.texi (Sessions): Update.
* tests/session.scm ("session-get"): Update.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/session.scm b/tests/session.scm index 3be2c04..3b5ffa2 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -98,13 +98,16 @@ (test-assert "session-get" (let* ((host "example.com") + (port 12345) (user "alice") (proxycommand "test") (session (make-session #:host host + #:port port #:user user #:identity %rsakey #:proxycommand proxycommand))) (and (string=? (session-get session 'host) host) + (= (session-get session 'port) port) (string=? (session-get session 'user) user) (string=? (session-get session 'identity) %rsakey) (string=? (session-get session 'proxycommand) proxycommand)))) |