Add unit tests for ssh, sftp, scp

Author: SineSwiper

t/scp.t

@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More tests => 6;
+
+use URI ();
+my $uri;
+
+$uri = URI->new("scp://user\@ssh.example.com/path");
+
+is($uri->scheme, 'scp');
+is($uri->host, 'ssh.example.com');
+is($uri->port, 22);
+is($uri->secure, 1);
+is($uri->user, 'user');
+is($uri->password, undef);

t/sftp.t

@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More tests => 6;
+
+use URI ();
+my $uri;
+
+$uri = URI->new("sftp://user\@ssh.example.com/path");
+
+is($uri->scheme, 'sftp');
+is($uri->host, 'ssh.example.com');
+is($uri->port, 22);
+is($uri->secure, 1);
+is($uri->user, 'user');
+is($uri->password, undef);

t/ssh.t

@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More tests => 6;
+
+use URI ();
+my $uri;
+
+$uri = URI->new("ssh://user\@ssh.example.com/path");
+
+is($uri->scheme, 'ssh');
+is($uri->host, 'ssh.example.com');
+is($uri->port, 22);
+is($uri->secure, 1);
+is($uri->user, 'user');
+is($uri->password, undef);