1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use strict;
use Test::More;
use Plack::TempBuffer;
{
my $b = Plack::TempBuffer->new(-1);
$b->print("foo");
is $b->size, 3;
my $fh = $b->rewind;
is do { local $/; <$fh> }, 'foo';
$fh->seek(0, 0);
}
{
local $Plack::TempBuffer::MaxMemoryBufferSize = 12;
my $b = Plack::TempBuffer->new;
is $b->size, 0;
$b->print("foo") for 1..5;
is $b->size, 15;
my $fh = $b->rewind;
isa_ok $fh, 'IO::File';
is do { local $/; <$fh> }, ('foo' x 5);
}
{
local $Plack::TempBuffer::MaxMemoryBufferSize = 0;
my $b = Plack::TempBuffer->new(3);
$b->print("foo\n");
is $b->size, 4;
my $fh = $b->rewind;
isa_ok $fh, 'IO::File';
is do { local $/; <$fh> }, "foo\n";
}
done_testing;
|
