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/setup_common

use strict;

use Test::More 1;
END{ done_testing() unless caller }

use Config;
use File::Temp qw(tempdir);

sub is_cygwin () { scalar grep { lc($^O) eq $_ or lc($Config{osname}) eq $_ } qw( cygwin ) }

sub is_msys   () { scalar grep { lc($^O) eq $_ or lc($Config{osname}) eq $_ } qw( msys msys2 ) }

sub is_win32  () { $^O eq 'MSWin32' }

sub is_unix_superuser () {
    ( not is_win32() and ( $> == 0 or $< == 0 ) )
    or
    ( is_cygwin() and grep { $_ == 544 } split /\s+/, `/usr/bin/id -G` )
	}

my $dir = tempdir( CLEANUP => 0 ) or BAIL_OUT( "Could not setup temp directory" );
print "Temp dir in <$dir>\n";

unless( -d $dir ) {
	mkdir 'test_files', 0700
		or BAIL_OUT( "Could not make directory! $!" );
	}

chdir $dir or BAIL_OUT( "Could not change directory! $!" );

my @files = qw(
max_file       non_zero_file  not_readable   readable       zero_file
executable     min_file       not_executable not_writable   writable
mtime_file
);

foreach my $file ( @files ) {
	open FH, "> $file";
	close FH;
	}

{
my $count = chmod 0644, @files;
is( $count, scalar @files ) or BAIL_OUT( "Could not make files readable" );
}

{
my $count = chmod 0400, 'readable', 'not_writable', 'not_executable';
is( $count, 3 ) or BAIL_OUT( "Could not make files readable" );
}

{
my $count = chmod 0200, 'writable', 'not_readable',
		'zero_file', 'max_file', 'non_zero_file';
is( $count, 5 ) or BAIL_OUT( "Could not make files writable" );
if( is_win32() ) {
	system 'attrib', '+', 'not_readable';
	}
}

{
my $count = chmod 0100, 'executable';
is( $count, 1 ) or BAIL_OUT( "Could not make files executable" );
}

truncate 'zero_file', 0;
truncate 'max_file', 10;
truncate 'min_file',  0;

{
open FH, '> min_file' or BAIL_OUT( "Could not write to min_file: $!" );
binmode FH; #, Windows, yo!
print FH 'x' x 40, $/, 'x' x 11, $/;
close FH;
}
is( -s 'min_file', 51 + 2 * length( $/ ) );

mkdir 'sub_dir', 0755 or BAIL_OUT( "Could not cerate subdir: $!" );

Batal