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