24_cache_loop.t revision 1
1N/A# Tests for various caching errors 1N/A print "1..0\n"; exit; 1N/Aprint "ok $N\n"; $N++;
1N/A# Limit cache size to 30 bytes 1N/A# -- that's enough space for 3 records, but not 4, on both \n and \r\n systems 1N/Aprint $o ?
"ok $N\n" :
"not ok $N\n";
1N/A# (3) In 0.50 this goes into an infinite loop. Explanation: 1N/A# Suppose you overfill the defer buffer by so much that the memory 1N/A# limit is also exceeded. You'll go into _splice to prepare to 1N/A# write out the defer buffer, and _splice will call _fetch, which 1N/A# will then try to flush the read cache---but the read cache is 1N/A# already empty, so you're stuck in an infinite loop. 1N/A# Five seconds should be plenty of time for it to complete if it works. 1N/A@a =
"record0" ..
"record9";