view release on metacpan or  search on metacpan

t/07_buffer.t  view on Meta::CPAN

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../";

use AWS::XRay::Buffer;
use Test::More;
use IO::Scalar;

subtest "auto_flush=1", sub {
    my $buf;
    my $b = AWS::XRay::Buffer->new(IO::Scalar->new(\$buf), 1);
    $b->print("foo");
    $b->print("bar", "baz");
    is $buf => "foobarbaz";

    $b->print("XXX");
    is $buf => "foobarbazXXX";

    $b->print("YYY");
    $b->close;
    is $buf => "foobarbazXXXYYY";

    $b->print("ZZZ");
    is $buf => "foobarbazXXXYYYZZZ";
};

subtest "auto_flush=0", sub {
    my $buf;
    my $b = AWS::XRay::Buffer->new(IO::Scalar->new(\$buf), 0);
    $b->print("foo");
    $b->print("bar", "baz");
    is $buf => undef;

    $b->flush;
    is $buf => "foobarbaz";

    $b->print("XXX");
    is $buf => "foobarbaz";

    $b->flush;
    is $buf => "foobarbazXXX";

    $b->print("YYY");
    $b->close;
    is $buf => "foobarbazXXX";

    $b->print("ZZZ");
    $b->flush;
    is $buf => "foobarbazXXXZZZ";
};

done_testing;