use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
select(STDERR); $|=1;
select(STDOUT); $|=1;
use File::Spec::Functions qw/canonpath/;
#--------------------------------------------------------------------------#
# setup
#--------------------------------------------------------------------------#
use Test::Tester 'no_plan';
use Test::Filename;
my $expected_file = 't/00_load.t';
my $got_file = canonpath( $expected_file );
my $wrong_file = canonpath('t/wrongfile.t');
#--------------------------------------------------------------------------#
# filename_is
#--------------------------------------------------------------------------#
check_test(
sub {
filename_is( $got_file, $expected_file, "foo" );
},
{
ok => 1,
name => "foo",
diag => q{},
},
"filename_is - ok"
);
check_test(
sub {
filename_is( $wrong_file, $expected_file, "foo" );
},
{
ok => 0,
name => "foo",
},
"filename_is - nok"
);
#--------------------------------------------------------------------------#
# filename_isnt
#--------------------------------------------------------------------------#
check_test(
sub {
filename_isnt( $wrong_file, $expected_file, "foo" );
},
{
ok => 1,
name => "foo",
diag => q{},
},
"filename_isnt - ok"
);
check_test(
sub {
filename_isnt( $got_file, $expected_file, "foo" );
},
{
ok => 0,
name => "foo",
},
"filename_isnt - nok"
);