Add tests for 'el-get-insecure-check-url

test/el-get-tests.el

@@ -125,3 +125,31 @@ Following variables are bound to temporal values:
      (should-not (featurep pkg))
      (el-get 'sync (mapcar 'el-get-source-name el-get-sources))
      (should (featurep pkg)))))
+
+(ert-deftest el-get-insecure-check-url-secure ()
+  (let ((el-get-allow-insecure nil))
+    (dolist (url '("https://example.com/"
+                   "ssh://example.com/"
+                   "user@ftp://example.com/"))
+      (should-not (el-get-insecure-check "ag" url)))))
+
+(ert-deftest el-get-insecure-check-url-insecure ()
+  (let ((el-get-allow-insecure nil))
+    (dolist (url '("git+ssh://example.com/"
+                   "bzr+ssh://example.com/"
+                   "sftp://example.com/"
+                   "http://example.com/"
+                   ":pserver:anonymous@cvs.namazu.org:/storage/cvsroot"
+                   "ftp://user@example.com/"))
+      (should-error (el-get-insecure-check "ag" url)))))
+
+;; TODO reuse URLs from secure/insecure tests
+(ert-deftest el-get-insecure-check-url-allow-insecure ()
+  (let ((el-get-allow-insecure 't))
+    (dolist (url '("git+ssh://example.com/"
+                   "bzr+ssh://example.com/"
+                   "sftp://example.com/"
+                   "http://example.com/"
+                   ":pserver:anonymous@cvs.namazu.org:/storage/cvsroot"
+                   "ftp://user@example.com/"))
+      (should-not (el-get-insecure-check "ag" url)))))