1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
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"
);
|
