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/line_counters.t

use strict;

use Test::Builder::Tester;
use Test::More 1;
use Test::File;

require "./t/setup_common";

subtest subs_defined => sub {
	my @subs = qw( file_line_count_between file_line_count_is file_line_count_isnt );

foreach my $sub ( @subs ) {
		no strict 'refs';
		ok( defined &{$sub}, "$sub is defined" );
		}
	done_testing();
	};

my $file    = 'min_file';

file_exists_ok( $file );

my @lines  = do { local @ARGV = $file; <> };
cmp_ok( scalar @lines, ">", 1, "$file has at least one line" );

my $lines  = @lines;
my $linesm = $lines - 1;
my $linesp = $lines + 1;

subtest should_work => sub {
	test_out( "ok 1 - $file line count is between [$linesm] and [$linesp] lines" );
	file_line_count_between( $file, $linesm, $linesp );
	test_test();

test_out( "ok 1 - $file line count is between [$lines] and [$linesp] lines" );
	file_line_count_between( $file, $lines, $linesp );
	test_test();

test_out( "ok 1 - $file line count is between [$lines] and [$lines] lines" );
	file_line_count_between( $file, $lines, $lines );
	test_test();

test_out( "ok 1 - $file line count is $lines lines" );
	file_line_count_is( $file, $lines );
	test_test();

test_out( "ok 1 - $file line count is not $linesp lines" );
	file_line_count_isnt( $file, $linesp );
	test_test();
	done_testing();
	};

subtest missing_file => sub {
	my $missing = 'not_there';
	file_not_exists_ok( $missing );

test_out( "not ok 1 - $missing line count is between [$linesm] and [$linesp] lines" );
	test_diag(
		"file [$missing] does not exist\n" .
		"    #   Failed test '$missing line count is between [$linesm] and [$linesp] lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_between( $missing, $linesm, $linesp );
	test_test();

test_out( "not ok 1 - $missing line count is between [$lines] and [$linesp] lines" );
	test_diag(
		"file [$missing] does not exist\n" .
		"    #   Failed test '$missing line count is between [$lines] and [$linesp] lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_between( $missing, $lines, $linesp );
	test_test();

test_out( "not ok 1 - $missing line count is between [$lines] and [$lines] lines" );
	test_diag(
		"file [$missing] does not exist\n" .
		"    #   Failed test '$missing line count is between [$lines] and [$lines] lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_between( $missing, $lines, $lines );
	test_test();

test_out( "not ok 1 - $missing line count is $lines lines" );
	test_diag(
		"file [$missing] does not exist\n" .
		"    #   Failed test '$missing line count is $lines lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_is( $missing, $lines );
	test_test();

test_out( "not ok 1 - $missing line count is not $lines lines" );
	test_diag(
		"file [$missing] does not exist\n" .
		"    #   Failed test '$missing line count is not $lines lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_isnt( $missing, $lines );
	test_test();
	done_testing();
	};

subtest missing_line_count => sub {
	my $file = 'min_file';
	file_exists_ok( $file );

test_out( "not ok 1 - $file line count is between [] and [] lines" );
	test_diag(
		"file_line_count_between expects positive whole numbers for the second and third arguments. Got [] and []\n" .
		"    #   Failed test '$file line count is between [] and [] lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_between( $file );
	test_test();

test_out( "not ok 1 - $file line count is  lines" );
	test_diag(
		"file_line_count_is expects a positive whole number for the second argument. Got []\n" .
		"    #   Failed test '$file line count is  lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_is( $file );
	test_test();

test_out( "not ok 1 - $file line count is not  lines" );
	test_diag(
		"file_line_count_is expects a positive whole number for the second argument. Got []\n" .
		"    #   Failed test '$file line count is not  lines'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_isnt( $file );
	test_test();
	done_testing();
	};

subtest wrong_number => sub {
	my $name = "$file line count is $linesp lines";
	test_out( "not ok 1 - $name" );
	test_diag(
		"expected [3] lines in [$file], got [$lines] lines\n" .
		"    #   Failed test '$name'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_is( $file, $linesp );
	test_test();

test_out( "ok 1 - $file line count is not $linesp lines" );
	file_line_count_isnt( $file, $linesp );
	test_test();

$name = "$file line count is not $lines lines";
	test_out( "not ok 1 - $name" );
	test_diag(
		"expected something other than [$lines] lines in [$file], but got [$lines] lines\n" .
		"    #   Failed test '$name'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_isnt( $file, $lines );
	test_test();

my $linespp = $linesp + 1;
	$name = "$file line count is between [$linesp] and [$linespp] lines";
	test_out( "not ok 1 - $name" );
	test_diag(
		"expected a line count between [$linesp] and [$linespp] in [$file], but got [$lines] lines\n" .
		"    #   Failed test '$name'\n" .
		"    #   at $0 line " . line_num(+5) . "."
		);
	file_line_count_between( $file, $linesp, $linespp );
	test_test();
	done_testing();
	};

done_testing();

Batal