File-Rename

 view release on metacpan or  search on metacpan

t/File-Rename-Options.t  view on Meta::CPAN

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 3;
BEGIN { use_ok('File::Rename::Options') };

#########################

# test 2

my $ok = do { local @ARGV = (1); File::Rename::Options::GetOptions() };
ok($ok, 'File::Rename::Options::GetOptions' );

ok(	
    $File::Rename::Options::VERSION <= 
    do { require File::Rename; eval $File::Rename::VERSION },
    'File::Rename::Option version not ahead of distribution version'
)

t/File-Rename-import.t  view on Meta::CPAN

);

# test 3
ok(
	!eval q{ CORE::rename( 'bing.txt', 1, 1 ); 1 },	# syntax error
	'CORE::rename() is not rename()'
);

# test 4 
# use File::Rename includes File::Rename::Options
my $ok = eval q{ local @ARGV = (1); File::Rename::Options::GetOptions() };
ok($ok, 'imported - File::Rename::Options::GetOptions' );

t/File-Rename-require.t  view on Meta::CPAN

use Test::More tests => 3;
BEGIN { require_ok('File::Rename') };

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

# require File::Rename should not include File::Rename::Options
my $ok = !eval { local @ARGV = (1); File::Rename::Options::GetOptions(); 1 };
ok($ok, 'not imported File::Rename::Options::GetOptions' );

# eval will fail if rename is CORE::rename
my $eval = eval q{ rename [1], 1, 1; 1; };
# require File::Rename does not import rename
ok(!$eval, 'not imported rename()');

t/testlib.pl  view on Meta::CPAN

use strict;
use warnings;

require File::Spec;
require File::Path;

sub main_argv { local @ARGV = @_; main() }

my $tempdir;

sub tempdir {
    my $d = 'temp' . $$;
    File::Path::rmtree($d) if -d $d;
    File::Path::mkpath($d);
    return ( $tempdir = $d );
}

t/testlib.pl  view on Meta::CPAN

        $found++ unless $warn or $print;
    }
}

sub diag_rename {
    if ( our $warn )  { $warn  =~ s/^/WARN: /mg;  diag($warn); }
    if ( our $print ) { $print =~ s/^/PRINT: /mg; diag($print); }
}

sub options {
    local @ARGV = @_;

    # Test must File::Rename::Options->import
    # using either  C<use File::Rename>
    # or    C<use File::Rename::Options>
    my $opt = File::Rename::Options::GetOptions(1);
    die "Bad options '@_'" unless $opt;
    die "Not options '@ARGV'" if @ARGV;
    return $opt;
}