1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my $file = "tf02-$$.txt";
7$: = Tie::File::_default_recsep();
8my $data = "rec1$:rec2$:rec3$:";
9
10print "1..6\n";
11
12my $N = 1;
13use Tie::File;
14print "ok $N\n"; $N++;
15
16open F, '>', $file or die $!;
17binmode F;
18print F $data;
19close F;
20
21my @a;
22my $o = tie @a, 'Tie::File', $file, autochomp => 0;
23print $o ? "ok $N\n" : "not ok $N\n";
24$N++;
25
26$: = $o->{recsep};
27
28my $n;
29
30# 3  test array element count
31$n = @a;
32print $n == 3 ? "ok $N\n" : "not ok $N # n=$n\n";
33$N++;
34
35# 4 same thing again
36$n = @a;
37print $n == 3 ? "ok $N\n" : "not ok $N # n=$n\n";
38$N++;
39
40# 5  test $#a notation
41$n = $#a;
42print $n == 2 ? "ok $N\n" : "not ok $N # n=$n\n";
43$N++;
44
45# 6  test looping over array elements
46my $q;
47for (@a) { $q .= $_ }
48print $q eq $data ? "ok $N\n" : "not ok $N # n=$n\n";
49$N++;
50
51END {
52  undef $o;
53  untie @a;
54  1 while unlink $file;
55}
56
57