Test-SFTP

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

            - 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 )