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
|
use warnings;
use strict;
use Test::Builder::Tester;
use Test::More 0.95;
use Test::File;
require "t/setup_common";
# Setup test env
my $mtime_file = 'mtime_file';
ok( -e $mtime_file, 'mtime file exists ok' ) or die $!;
my $curtime = time();
my $set_mtime = $curtime-60*10; # 10 minutes ago
my $count = utime($set_mtime,$set_mtime,$mtime_file);
ok( $count, 'utime reports it set mtime' ) or diag explain $count;
my $mtime = ( stat($mtime_file) )[9];
ok ( $mtime == $set_mtime, 'utime successfully set mtime for testing' ) or diag "Got: $mtime, Expected: $set_mtime";
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# file_mtime_age_ok
test_out( 'ok 1 - file_mtime_age_ok success' );
file_mtime_age_ok( $mtime_file, 60*11, 'file_mtime_age_ok success' );
test_test( 'file_mtime_age_ok success works' );
test_out( 'not ok 1 - file_mtime_age_ok failure' );
test_err( qr/\s*#\s*Filename \[$mtime_file\] [^\n]+\n/ );
test_fail(+1);
file_mtime_age_ok( $mtime_file, 60*9, 'file_mtime_age_ok failure' );
test_test( 'file_mime_age_ok failure works' );
# file_mtime_lt_ok
test_out( 'ok 1 - file_mtime_lt_ok success' );
file_mtime_lt_ok( $mtime_file, time(), 'file_mtime_lt_ok success' );
test_test( 'file_mtime_lt_ok success works' );
test_out( 'not ok 1 - file_mtime_lt_ok failure' );
test_err( qr/\s*#\s*Filename \[$mtime_file\] [^\n]+\n/ );
test_fail(+1);
file_mtime_lt_ok( $mtime_file, $curtime-60*11, 'file_mtime_lt_ok failure' );
test_test( 'file_mtime_lt_ok failure works' );
# file_mtime_gt_ok
test_out( 'ok 1 - file_mtime_gt_ok success' );
file_mtime_gt_ok( $mtime_file, $curtime-60*11, 'file_mtime_gt_ok success' );
test_test( 'file_mtime_gt_ok success works' );
test_out( 'not ok 1 - file_mtime_gt_ok failure' );
test_err( qr/\s*#\s*Filename \[$mtime_file\] [^\n]+\n/ );
test_fail( +1 );
file_mtime_gt_ok( $mtime_file, $curtime-60*9, 'file_mtime_gt_ok failure' );
test_test( 'file_mtime_gt_ok failure works' );
# Test internal _stat_file function
test_err( qr/\s*#\s*Filename \[.*?\] does not exist!\n/ );
Test::File::_stat_file( 'non-existent-file-12345', 9 );
test_test( '_stat_file on non-existent file works' );
test_err( qr/\s*#\s*Filename not specified!\n/ );
Test::File::_stat_file( undef );
test_test( '_stat_file no file provided works' );
done_testing();
|
