3 # Make sure it works to open the file in read-only mode
13 print "ok $N\n"; $N++;
15 my @items = qw(Gold Frankincense Myrrh Ivory Apes Peacocks);
16 init_file(join $/, @items, '');
18 my $o = tie @a, 'Tie::File', $file, mode => O_RDONLY;
19 print $o ? "ok $N\n" : "not ok $N\n";
22 $#a == $#items ? print "ok $N\n" : print "not ok $N\n";
25 for my $i (0..$#items) {
26 ("$items[$i]$/" eq $a[$i]) ? print "ok $N\n" : print "not ok $N\n";
32 open F, "> $file" or die $!;