Add unit tests for ssh, sftp, scp

libwww-perl · Oct 8, 2024 · 225f518 · 225f518
1 parent b6f2e7e
commit 225f518
Show file tree

Hide file tree

Showing 3 changed files with 48 additions and 0 deletions.
diff --git a/t/scp.t b/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);
diff --git a/t/sftp.t b/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);
diff --git a/t/ssh.t b/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);