From 5ccd4bc9449e8b36c345ec7b84ac31a4ce8a6742 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Thu, 19 Nov 2015 22:36:46 +0300
Subject: tests/session.scm ("session-get"): Test callbacks

---
 tests/session.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'tests/session.scm')

diff --git a/tests/session.scm b/tests/session.scm
index aebe9b6..255e843 100644
--- a/tests/session.scm
+++ b/tests/session.scm
@@ -104,16 +104,21 @@
          (port         12345)
          (user         "alice")
          (proxycommand "test")
+         (callbacks    '((user-data . "test")))
          (session      (make-session #:host         host
                                      #:port         port
                                      #:user         user
                                      #:identity     %rsakey
-                                     #:proxycommand proxycommand)))
+                                     #:proxycommand proxycommand
+                                     #:callbacks    callbacks)))
     (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))))
+         (string=? (session-get session 'proxycommand) proxycommand)
+         (equal?   (session-get session 'callbacks)    callbacks)
+         ;; Make sure that default callbacks value is '#f'.
+         (equal?   (session-get (%make-session) 'callbacks) #f))))
 
 (test-assert "make-session"
   (make-session #:host "localhost"
-- 
cgit v1.2.3