Add a :agent-forwarding option

A boolean value is passed with :agent-forwarding to clj-ssh.ssh/ssh.

Author: hugoduncan

src/clj_ssh/ssh.clj

@@ -359,6 +359,10 @@ keys.  All other option key pairs will be passed as SSH config options."
       (reflect/call-method
        com.jcraft.jsch.ChannelSession 'setPty [Boolean/TYPE]
        shell (boolean (opts :pty))))
+    (when (contains? opts :agent-forwarding)
+      (reflect/call-method
+       com.jcraft.jsch.ChannelSession 'setAgentForwarding [Boolean/TYPE]
+       shell (boolean (opts :agent-forwarding))))
     (if out-inputstream
       (do
         (connect shell)
@@ -390,6 +394,10 @@ keys.  All other option key pairs will be passed as SSH config options."
       (reflect/call-method
        com.jcraft.jsch.ChannelSession 'setPty [Boolean/TYPE]
        exec (boolean (opts :pty))))
+    (when (contains? opts :agent-forwarding)
+      (reflect/call-method
+       com.jcraft.jsch.ChannelSession 'setAgentForwarding [Boolean/TYPE]
+       exec (boolean (opts :agent-forwarding))))
     (if out-inputstream
       (do
         (connect exec)

test/clj_ssh/ssh_test.clj

@@ -265,7 +265,14 @@ list, Alan Dipert and MeikelBrandmeyer."
         (let [result (ssh-shell session "exit $(tty -s)" "UTF-8" {:pty true})]
           (is (= 0 (first result))))
         (let [result (ssh-shell session "exit $(tty -s)" "UTF-8" {:pty nil})]
-          (is (= 1 (first result))))))))
+          (is (= 1 (first result))))
+        (let [result (ssh-shell session "ssh-add -l" "UTF-8" {})]
+          (is (pos? (first result))))
+        (let [result (ssh-shell session "ssh-add -l" "UTF-8" {:agent-forwarding false})]
+          (is (pos? (first result))))
+        (let [result (ssh-shell session "ssh-add -l" "UTF-8" {:agent-forwarding true})]
+          (is (re-find #"RSA" (second result)))
+          (is (= 0 (first result))))))))
 
 (deftest ssh-exec-test
   (with-ssh-agent [false]