From 991903ad89420edb3ba28ce2ab73b293267d9687 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sat, 9 Aug 2014 18:57:00 +0400
Subject: 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.
---
 tests/session.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tests/session.scm')

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))))
-- 
cgit v1.2.3