Test-SFTP
view release on metacpan or search on metacpan
- Switched from Net::SFTP to Net::SFTP::Foreign
- Switched from Test::More to Test::Builder
- Some API breakage (status, ssh_args -> more, etc.)
- A lot of code and POD cleanups
- Test adjustments, cleanups, fixes, changing some deps for them
- Adding namespace::autoclean and other deps
- Cleaning up Build.PL, adding LICENSE, META, examples, etc.
0.04 08.02.09
- in t/02-failure.t: initialized $ENV{'HOME'} as empty (windows)
- in t/03-successful.t: skipping if getpwuid doesn't work (windows)
0.03 20.01.08
- in t/01-timeout.t: finally fixed eval for Test::Timer
- in t/03-successful.t: finally fixed eval for File::Util
- in t/03-successful.t: changed no. of skipped tests in first SKIP
to 14
- in t/03-successful.t: removed File::Util from the top "use" group
- added "use warnings" (even though we're already using Moose) to
gain more Kwalitee.
- added to dist_abstract to Build.PL
t/03-successfuls.t view on Meta::CPAN
use strict;
use warnings;
use English '-no_match_vars';
use Test::More tests => 11;
use Test::SFTP;
use Term::ReadLine;
use Term::ReadPassword;
SKIP: {
eval "getpwuid $REAL_USER_ID";
if ( $EVAL_ERROR ) {
skip "no getpwuid", 11;
}
my $term = Term::ReadLine->new('test_term');
my $host = 'localhost';
my $timeout = 10;
my $SPACE = q{ };
my $EMPTY = q{};
my $username = getpwuid $REAL_USER_ID || $EMPTY;
my ( $password, $test, $prompt );
my ( $full_status, $status_number, $status_string );
SKIP: {
eval {
local $SIG{'ALRM'} = sub {
die "input failed\n";
};
( run in 0.394 second using v1.01-cache-2.11-cpan-8d75d55dd25 )