Added documentation and test for default-session-options

cemerick · Mar 7, 2010 · 11972f6 · 11972f6
1 parent d0621d3
commit 11972f6
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -14,6 +14,10 @@ key in your $HOME/.ssh directory.
 
     (ssh "hostname" "ls")
 
+Strict host key checking can be turned off.
+
+    (default-session-options {:strict-host-key-checking :no})
+
 More advance usage is possible.
 
     (with-ssh-agent []

diff --git a/src/clj_ssh/ssh.clj b/src/clj_ssh/ssh.clj
@@ -14,6 +14,10 @@ key in your $HOME/.ssh directory.
 
     (ssh hostname cmd)
 
+Strict host key checking can be turned off.
+
+    (default-session-options {:strict-host-key-checking :no})
+
 More advance usage is possible.
 
     (with-ssh-agent []

diff --git a/test/clj_ssh/ssh_test.clj b/test/clj_ssh/ssh_test.clj
@@ -29,6 +29,14 @@ list, Alan Dipert and MeikelBrandmeyer."
 (deftest default-identity-test
   (is (= (private-key-path) (.getPath (default-identity)))))
 
+(deftest default-session-options-test
+  (let [old *default-session-options*
+        new {:strict-host-key-checking :no}]
+    (default-session-options new)
+    (is (= new *default-session-options*))
+    (default-session-options old)
+    (is (= old *default-session-options*))))
+
 (deftest ssh-agent?-test
   (is (ssh-agent? (com.jcraft.jsch.JSch.)))
   (is (not (ssh-agent? "i'm not an ssh-agent"))))