use strict;

use Test::More tests => 3;

use_ok( 'Sub::Compose' );

my $a = sub {
    if ( $_[0] > 5 ) {
        return 2 * $_[0];
    } else {
        return 3 * $_[0];
    }
};

my $b = sub {
    if ( $_[0] > 5 ) {
        return 2 * $_[0];
    } else {
        return 3 * $_[0];
    }
};

my $c = sub {
    if ( $_[0] > 5 ) {
        return 2 * $_[0];
    } else {
        return 3 * $_[0];
    }
};

my $f = Sub::Compose::compose( $a, $b, $c );
isa_ok( $f, 'CODE' );

my @x = $f->( 2 );
is( $x[0], 24 );