view release on metacpan or  search on metacpan

t/plugin/range_condition_maker/make_range_condition.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Test::More;

use File::Spec;
use lib File::Spec->catfile('t', 'lib');
use Mouse::Util;
use t::Util;

run_on_database {
    Mouse::Util::apply_all_roles(db, 'Aniki::Plugin::RangeConditionMaker');

    db->insert_multi(author => [map {
        +{ name => $_ }
    } qw/MOZNION KARUPA PAPIX MACKEE/]);

    my ($where, $result);

    for my $type (qw/lower gt/) {
        $where  = db->make_range_condition({ $type => { id => 2 } });
        $result = db->select('author', $where);
        is scalar (map { $_->{id} > 2 } @{ $result->row_datas }), 2;
    }

    for my $type (qw/upper lt/) {
        $where  = db->make_range_condition({ $type => { id => 4 } });
        $result = db->select('author', $where);
        is scalar (map { $_->{id} < 4 } @{ $result->row_datas }), 3;
    }

    $where  = db->make_range_condition({ ge => { id => 2 } });
    $result = db->select('author', $where);
    is scalar (map { $_->{id} >= 2 } @{ $result->row_datas }), 3;

    $where  = db->make_range_condition({ le => { id => 4 } });
    $result = db->select('author', $where);
    is scalar (map { $_->{id} <= 4 } @{ $result->row_datas }), 4;

    $where  = db->make_range_condition({ lower => { id => 1 }, upper => { id => 3 } });
    $result = db->select('author', $where);
    is scalar @{$result->row_datas}, 1;
    is $result->row_datas->[0]->{id}, 2;
};

done_testing();