[urisagit/Perl-Docs.git] / t / perms.t

#!/usr/local/bin/perl -w

use strict ;
use Test::More ;
use File::Slurp ;

plan skip_all => "meaningless on Win32" if $^O =~ /win32/i ;
plan tests => 2 ;

my $file = "perms.$$" ;

my $text = <<END ;
This is a bit of contents
to store in a file.
END

umask 027 ;

write_file( $file, $text ) ;
is( getmode( $file ), 0640, 'default perms works' ) ;
unlink $file ;

write_file( $file, { perms => 0777 }, $text ) ;
is( getmode( $file ), 0750, 'set perms works' ) ;
unlink $file ;

exit ;

sub getmode {
	return 07777 & (stat $_[0])[2] ;
}
Commit	Line	Data
2b56fd3b	1	#!/usr/local/bin/perl -w
	2
	3	use strict ;
	4	use Test::More ;
	5	use File::Slurp ;
	6
12444d55	7	plan skip_all => "meaningless on Win32" if $^O =~ /win32/i ;
2b56fd3b	8	plan tests => 2 ;
	9
	10	my $file = "perms.$$" ;
	11
	12	my $text = <<END ;
	13	This is a bit of contents
	14	to store in a file.
	15	END
	16
	17	umask 027 ;
	18
	19	write_file( $file, $text ) ;
	20	is( getmode( $file ), 0640, 'default perms works' ) ;
	21	unlink $file ;
	22
	23	write_file( $file, { perms => 0777 }, $text ) ;
	24	is( getmode( $file ), 0750, 'set perms works' ) ;
	25	unlink $file ;
	26
	27	exit ;
	28
	29	sub getmode {
	30	return 07777 & (stat $_[0])[2] ;
	31	}