tests/session.scm (make-session): Improve

* tests/session.scm (make-session): Set the config to "/dev/null" when #f is
used as the value for "#:config" to prevent the reading of default
configuration files on older version of libssh (prior 0.9.)
* modules/ssh/session.scm ("make-session, '#:config' set to '/dev/null'"):
New test case.

Author: artyom-poptsov

modules/ssh/session.scm

@@ -102,15 +102,18 @@ Return a new SSH session."
         (let ((libssh-minor-version (get-libssh-minor-version)))
           (if (>= libssh-minor-version 9)
               (session-set! session 'process-config? #f)
-              (format-log 'rare
-                          'make-session
-                          (string-append
-                           "process-config? option is not available"
-                           " (using libssh 0.~a.)"
-                           " Falling back to the old Guile-SSH behavior "
-                           " (no config setting.)"
-                           " See <https://github.com/artyom-poptsov/guile-ssh/issues/38>.")
-                          libssh-minor-version))))
+              (begin
+                (format-log 'rare
+                            'make-session
+                            (string-append
+                             "process-config? option is not available"
+                             " (using libssh 0.~a.)"
+                             " Falling back to setting the config to"
+                             " '/dev/null' to prevent reading the default"
+                             " configuration files."
+                             " See <https://github.com/artyom-poptsov/guile-ssh/issues/38>.")
+                            libssh-minor-version)
+                (%gssh-session-parse-config! session "/dev/null")))))
 
     (session-set-if-specified! port)
     (session-set-if-specified! user)

tests/session.scm

@@ -222,6 +222,10 @@
   (make-session #:host   "localhost"
                 #:config %config))
 
+(test-assert "make-session, '#:config' set to '/dev/null'"
+  (make-session #:host   "localhost"
+                #:config "/dev/null"))
+
 ;; Setting '#:config' option to #f must set "process-config?" option to #f.
 (test-assert "make-session, '#:config' as a boolean value: #f"
   (make-session #:host   "localhost"