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