ACIL FM

Nama	Ukuran	Aksi
rt	-	Open
dm_skeleton.t	1.51 MB	View DL Edit
file_contains.t	5.05 MB	View DL Edit
file_contains_encoded.t	2.96 MB	View DL Edit
file_contains_utf8.t	2.97 MB	View DL Edit
file_mtime.t	3.02 MB	View DL Edit
file_sizes.t	4.71 MB	View DL Edit
line_counters.t	5.21 MB	View DL Edit
links.t	5.23 MB	View DL Edit
link_counts.t	2.47 MB	View DL Edit
load.t	158 B	View DL Edit
normalize.t	1.81 MB	View DL Edit
obviously_non_multi_user.t	1.53 MB	View DL Edit
owner.t	5.75 MB	View DL Edit
pod.t	129 B	View DL Edit
pod_coverage.t	161 B	View DL Edit
setup_common	1.89 MB	View DL Edit
test_dirs.t	1.42 MB	View DL Edit
test_files.t	9.99 MB	View DL Edit
test_manifest	282 B	View DL Edit
win32.t	929 B	View DL Edit

Edit file: /home/.cpan/build/Test-File-1.993-0/t/file_mtime.t

use warnings;
use strict;

use Test::Builder::Tester;
use Test::More 1;
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();

subtest utime => sub {
	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";
	};

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

subtest file_mtime_age_ok => sub {
	test_out( 'ok 1 - file_mtime_age_ok success' );
	test_out( 'ok 2 - mtime_file mtime within 660 seconds of current time' );
	file_mtime_age_ok( $mtime_file, 60*11, 'file_mtime_age_ok success' );
	file_mtime_age_ok( $mtime_file, 60*11 );
	test_test( 'file_mtime_age_ok success works' );

test_out( 'not ok 1 - mtime_file mtime within 0 seconds of current time' );
	file_mtime_age_ok( $mtime_file );
	test_test( name => 'file_mtime_age_ok success works', skip_err => 1 );

test_out( 'not ok 1 - file_mtime_age_ok failure' );
	test_err( qr/\s*#\s*file \[$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' );

done_testing();
	};

subtest file_mtime_lt_ok => sub {
	my $time = time() + 10;
	test_out( 'ok 1 - file_mtime_lt_ok success' );
	test_out( 'ok 2 - mtime_file mtime less than unix timestamp ' . $time );
	file_mtime_lt_ok( $mtime_file, $time, 'file_mtime_lt_ok success' );
	file_mtime_lt_ok( $mtime_file, $time );
	test_test( 'file_mtime_lt_ok success works' );

test_out( 'not ok 1 - file_mtime_lt_ok failure' );
	test_err( qr/\s*#\s*file \[$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' );

done_testing();
	};

subtest file_mtime_gt_ok => sub {
	test_out( 'ok 1 - file_mtime_gt_ok success' );
	test_out( 'ok 2 - mtime_file mtime is greater than unix timestamp ' . ($curtime-60*11) );
	file_mtime_gt_ok( $mtime_file, $curtime-60*11, 'file_mtime_gt_ok success' );
	file_mtime_gt_ok( $mtime_file, $curtime-60*11 );
	test_test( 'file_mtime_gt_ok success works' );

test_out( 'not ok 1 - file_mtime_gt_ok failure' );
	test_err( qr/\s*#\s*file \[$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' );

done_testing();
	};

subtest _stat_file => sub {
	# Test internal _stat_file function
	test_err( qr/\s*#\s*file \[.*?\] 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*file name not specified\n/ );
	Test::File::_stat_file( undef );
	test_test( '_stat_file no file provided works' );

done_testing();
	};

done_testing();

Batal