[perl5.git] / lib / Tie / File / 08_ro.t

#!/usr/bin/perl
#
# Make sure it works to open the file in read-only mode
#

my $file = "tf$$.txt";

print "1..9\n";

my $N = 1;
use Tie::File;
use Fcntl 'O_RDONLY';
print "ok $N\n"; $N++;

my @items = qw(Gold Frankincense Myrrh Ivory Apes Peacocks);
init_file(join $/, @items, '');

my $o = tie @a, 'Tie::File', $file, mode => O_RDONLY;
print $o ? "ok $N\n" : "not ok $N\n";
$N++;

$#a == $#items ? print "ok $N\n" : print "not ok $N\n";
$N++;

for my $i (0..$#items) {
  ("$items[$i]$/" eq $a[$i]) ? print "ok $N\n" : print "not ok $N\n";
  $N++;
}

sub init_file {
  my $data = shift;
  open F, "> $file" or die $!;
  binmode F;
  print F $data;
  close F;
}


END {
  1 while unlink $file;
}
Commit	Line	Data
b5aed31e AMS	1	#!/usr/bin/perl
	2	#
	3	# Make sure it works to open the file in read-only mode
	4	#
	5
	6	my $file = "tf$$.txt";
	7
	8	print "1..9\n";
	9
	10	my $N = 1;
	11	use Tie::File;
	12	use Fcntl 'O_RDONLY';
	13	print "ok $N\n"; $N++;
	14
	15	my @items = qw(Gold Frankincense Myrrh Ivory Apes Peacocks);
	16	init_file(join $/, @items, '');
	17
	18	my $o = tie @a, 'Tie::File', $file, mode => O_RDONLY;
	19	print $o ? "ok $N\n" : "not ok $N\n";
	20	$N++;
	21
	22	$#a == $#items ? print "ok $N\n" : print "not ok $N\n";
	23	$N++;
	24
	25	for my $i (0..$#items) {
	26	("$items[$i]$/" eq $a[$i]) ? print "ok $N\n" : print "not ok $N\n";
	27	$N++;
	28	}
	29
	30	sub init_file {
	31	my $data = shift;
	32	open F, "> $file" or die $!;
1768807e	33	binmode F;
b5aed31e AMS	34	print F $data;
	35	close F;
	36	}
	37
	38
	39	END {
	40	1 while unlink $file;
	41	}
	42