EVOLUTION-MANAGER

Edit File: mergecb.t

use strict;
use warnings;

use Test::More;

use DateTime::Format::Builder::Parser;

{
    my $new_sub = sub {
        my $x = shift;
        sub { $_[1] . $x }
    };
    my @cbs = ( map { $new_sub->($_) } qw( a b c d e f g ) );
    my $cb = DateTime::Format::Builder::Parser->merge_callbacks(@cbs);
    is( $cb->( input => "x" ) => "xabcdefg", "Callback chaining works." );

my $cbr = DateTime::Format::Builder::Parser->merge_callbacks( \@cbs );
    is(
        $cbr->( input => "x" ) => "xabcdefg",
        "Callback chaining works on ref."
    );
}

{
    my $inout = sub { $_[0] . "foo" };
    my $cb = DateTime::Format::Builder::Parser->merge_callbacks($inout);
    is( $cb->("foo") => "foofoo", "Single callback works." );
}

{
    my $empty = DateTime::Format::Builder::Parser->merge_callbacks(undef);
    ok( !defined $empty, "Given undef, do bugger all." );

$empty = DateTime::Format::Builder::Parser->merge_callbacks();
    ok( !defined $empty, "Given nothing, do bugger all." );

$empty = DateTime::Format::Builder::Parser->merge_callbacks( [] );
    ok( !defined $empty, "Given empty arrayref, do bugger all." );
}

{
    my $error = eval {
        DateTime::Format::Builder::Parser->merge_callbacks( { foo => 4 } );
    };
    ok( $@, "Correctly faulted on bad arguments." );
}

done_testing();