view release on metacpan or  search on metacpan

t/CmdInstallEmacs.t  view on Meta::CPAN

    my $return = AETest->test( [qw{ install-emacs --print --dest x }], '' );
    is( $return->stdout, '', 'Install-Emacs w/ too many opts' );
    like( $return->error, qr/cannot be combined/, '... too many opts' );
}

{
    my $return = AETest->test( [qw{ install-emacs --print }], '' );
    like( $return->stdout,
        qr/App::EditorTools::Command::InstallEmacs generated script/,
        '--print' );
    like( $return->stderr, qr/STDOUT/, '... good location' );
    is( $return->error, undef, '... no error' );
}

{
    my $return = AETest->test( [qw{ install-emacs --local --dryrun }], '' );
    is( $return->stdout, '', '--local' );
    like( $return->stderr, qr{..emacs\.d.editortools.el}, '... good location' );
    is( $return->error, undef, '... no error' );
}

{
    my $return = AETest->test( [qw{ install-emacs --dryrun }], '' );
    is( $return->stdout, '', 'default' );
    like( $return->stderr, qr{..emacs\.d.editortools.el}, '... good location' );
    is( $return->error, undef, '... no error' );
}


{
    my $return = AETest->test( [qw{ install-emacs --dest '/tmp/script.el' --dryrun }], '' );
    is( $return->stdout, '', '--dest' );
    like( $return->stderr, qr{\Q/tmp/script.el\E}, '... good location' );
    is( $return->error, undef, '... no error' );
}

t/CmdInstallVim.t  view on Meta::CPAN

    my $return = AETest->test( [qw{ install-vim --print --dest x }], '' );
    is( $return->stdout, '', 'Install-Vim w/ too many opts' );
    like( $return->error, qr/cannot be combined/, '... too many opts' );
}

{
    my $return = AETest->test( [qw{ install-vim --print }], '' );
    like( $return->stdout,
        qr/" App::EditorTools::Command::InstallVim generated script/,
        '--print' );
    like( $return->stderr, qr/STDOUT/, '... good location' );
    is( $return->error, undef, '... no error' );
}

{
    my $return = AETest->test( [qw{ install-vim --local --dryrun }], '' );
    is( $return->stdout, '', '--local' );
    like( $return->stderr, qr{.ftplugin.perl.editortools.vim}, '... good location' );
    is( $return->error, undef, '... no error' );
}

{
    my $return = AETest->test( [qw{ install-vim --dryrun }], '' );
    is( $return->stdout, '', 'default' );
    like( $return->stderr, qr{.ftplugin.perl.editortools.vim}, '... good location' );
    is( $return->error, undef, '... no error' );
}


{
    my $return = AETest->test( [qw{ install-vim --dest '/tmp/script.vim' --dryrun }], '' );
    is( $return->stdout, '', '--dest' );
    like( $return->stderr, qr{\Q/tmp/script.vim\E}, '... good location' );
    is( $return->error, undef, '... no error' );
}

t/CmdRenamePackageFromPath.t  view on Meta::CPAN

use lib 't/lib';
use AETest;

{
    my $return = AETest->test( [qw(renamepackagefrompath -f lib/New/Path.pm)], <<'CODE' );
package Old::Package;
use strict; use warnings;
CODE
    like( $return->stdout, qr/package New::Path;/, 'RenamePackage... file does not exists' );
    diag $return->stderr if $return->stderr;
    is( $return->error, undef, '... no error' );
}


{
    my $return = AETest->test( [qw(renamepackagefrompath -f lib/App/EditorTools.pm)], <<'CODE' );
package Old::Package;
use strict; use warnings;
CODE
    like( $return->stdout, qr/package App::EditorTools;/, 'RenamePackage... exists' );