Commit | Line | Data |
---|---|---|
27531ffb JH |
1 | #!/usr/bin/perl |
2 | # | |
3 | # Tests for various caching errors | |
4 | # | |
5 | ||
6 | use Config; | |
41398221 | 7 | my $file = "tf$$.txt"; |
27531ffb JH |
8 | unless ($Config{d_alarm}) { |
9 | print "1..0\n"; exit; | |
10 | } | |
11 | ||
27531ffb JH |
12 | $: = Tie::File::_default_recsep(); |
13 | my $data = join $:, "record0" .. "record9", ""; | |
14 | my $V = $ENV{INTEGRITY}; # Verbose integrity checking? | |
15 | ||
16 | print "1..3\n"; | |
17 | ||
18 | my $N = 1; | |
19 | use Tie::File; | |
20 | print "ok $N\n"; $N++; | |
21 | ||
22 | open F, "> $file" or die $!; | |
23 | binmode F; | |
24 | print F $data; | |
25 | close F; | |
26 | ||
27 | # Limit cache size to 30 bytes | |
28 | my $MAX = 30; | |
29 | # -- that's enough space for 3 records, but not 4, on both \n and \r\n systems | |
30 | my $o = tie @a, 'Tie::File', $file, memory => $MAX, autodefer => 1; | |
31 | print $o ? "ok $N\n" : "not ok $N\n"; | |
32 | $N++; | |
33 | ||
34 | # (3) In 0.50 this goes into an infinite loop. Explanation: | |
35 | # | |
36 | # Suppose you overfill the defer buffer by so much that the memory | |
37 | # limit is also exceeded. You'll go into _splice to prepare to | |
38 | # write out the defer buffer, and _splice will call _fetch, which | |
39 | # will then try to flush the read cache---but the read cache is | |
40 | # already empty, so you're stuck in an infinite loop. | |
41 | # | |
42 | # Five seconds should be plenty of time for it to complete if it works. | |
43 | alarm 5 unless $^P; | |
44 | @a = "record0" .. "record9"; | |
45 | print "ok 3\n"; | |
79a3c49f | 46 | alarm 0; |
27531ffb JH |
47 | |
48 | END { | |
49 | undef $o; | |
50 | untie @a; | |
51 | 1 while unlink $file; | |
52 | } | |
53 | ||
54 | ||
55 |