view release on metacpan or  search on metacpan

t/01_Data-Formula.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use utf8;

use Test::Most;

use_ok('Data::Formula') or die;

my $this_file = __FILE__;

SIMPLE_FORMULA: {
    my $formula = 'n212 - n213 + n314 + n354';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        variables => [qw( n212 n213 n314 n354 )],
        formula   => $formula,
    );
    my $tokens = $df->_tokens;
    eq_or_diff($tokens, [qw( n212 - n213 + n314 + n354)], '_tokens()');

    my $used_variables = $df->used_variables;
    eq_or_diff($used_variables, [qw( n212 n213 n314 n354 )], 'used_variables()');

    my $rpn = $df->_rpn;
    eq_or_diff(
        $rpn,
        [   'n212', 'n213',
            {'name' => '-', calc => 'minus', method => 'minus', prio => 10,}, 'n314',
            {'name' => '+', calc => 'plus',  method => 'plus',  prio => 10,}, 'n354',
            {'name' => '+', calc => 'plus',  method => 'plus',  prio => 10,},
        ],
        '_rpn()'
    );

    my $val = $df->calculate(
        n212 => 5,
        n213 => 10,
        n314 => 7,
        n354 => 100
    );
    is($val, (5 - 10 + 7 + 100), 'calculate()');
}

SIMPLE_FORMULA2: {
    my $formula = 'n212 - (n213 + n314 + n354)';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    my $val = $df->calculate(
        n212 => 5,
        n213 => 2,
        n314 => 3,
        n354 => 6,
    );
    is($val, (5 - (2 + 3 + 6)), 'calculate()');

    my $rpn = $df->_rpn;
    eq_or_diff(
        $rpn,
        [   'n212',
            'n213',
            'n314',
            {'name' => '+', calc => 'plus', method => 'plus', prio => 110,},
            'n354',
            {'name' => '+', calc => 'plus',  method => 'plus',  prio => 110,},
            {'name' => '-', calc => 'minus', method => 'minus', prio => 10,},
        ],
        '_rpn()'
    );
}

MULTIPLICATION_FORMULA: {
    my $formula = 'n212 - n213 * n314 + n354';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    my $val = $df->calculate(
        n212 => 5,
        n213 => 10,
        n314 => 7,
        n354 => 100
    );
    is($val, (5 - (10 * 7) + 100), 'calculate()');

    my $tokens = $df->_tokens;
    eq_or_diff($tokens, [qw( n212 - n213 * n314 + n354)], '_tokens()');

    my $rpn = $df->_rpn;
    eq_or_diff(
        $rpn,
        [   'n212',
            'n213',
            'n314',
            {'name' => '*', calc => 'multiply', method => 'multiply', prio => 50,},
            {'name' => '-', calc => 'minus',    method => 'minus',    prio => 10,},
            'n354',
            {'name' => '+', calc => 'plus', method => 'plus', prio => 10,},
        ],
        '_rpn()'
    );
}

LONGER_FORMULA: {
    my $formula = 'n212 - n213 + n314 * (n354 + n394) - 10';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        variables => [qw( n212 n213 n274 n294 n314 n334 n354 n374 n394 )],
        formula   => $formula,
    );
    my $tokens = $df->_tokens;
    eq_or_diff($tokens, [qw( n212 - n213 + n314 * ( n354 + n394 ) - 10 )], '_tokens()');

    my $used_variables = $df->used_variables;
    eq_or_diff($used_variables, [qw( n212 n213 n314 n354 n394 )], 'used_variables()');

    my $rpn = $df->_rpn;
    eq_or_diff(
        $rpn,
        [   'n212',
            'n213',
            {'name' => '-', calc => 'minus', method => 'minus', prio => 10,},
            'n314',
            'n354',
            'n394',
            {'name' => '+', calc => 'plus',     method => 'plus',     prio => 110,},
            {'name' => '*', calc => 'multiply', method => 'multiply', prio => 50,},
            {'name' => '+', calc => 'plus',     method => 'plus',     prio => 10,},
            10,
            {'name' => '-', calc => 'minus', method => 'minus', prio => 10,},
        ],
        '_rpn()'
    );

    my $val = $df->calculate(
        n212 => 5,
        n213 => 10,
        n314 => 2,
        n354 => 3,
        n394 => 9,
    );
    is($val, (5 - 10 + (2 * (3 + 9)) - 10), 'calculate()');
}

DIVISION_FORMULA: {
    my $formula = 'n45 / n100';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    my $val = $df->calculate(
        n100 => 100,
        n45  => 45,
    );
    is($val, (45 / 100), 'calculate()');

    my $tokens = $df->_tokens;
    eq_or_diff($tokens, [qw( n45 / n100 )], '_tokens()');

    my $rpn = $df->_rpn;
    eq_or_diff($rpn,
        ['n45', 'n100', {'name' => '/', calc => 'divide', method => 'divide', prio => 50,},],
        '_rpn()');
}

DIVISION_BY_ZERO_FORMULA: {
    my $formula = 'n100 / ( n10 - n10 )';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        formula  => $formula,
        on_error => 0,
    );

    my $val = $df->calculate(
        n100 => 100,
        n10  => 10,
    );
    is($val, 0, 'calculate()');
}

DIVISION_BY_ZERO_FORMULA_EXCEPTION: {
    my $formula = 'n100 / ( n10 - n10 )';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    throws_ok(
        sub {
            my $val = $df->calculate(
                n100 => 100,
                n10  => 10,
            );
        },
        qr/division by zero.+$this_file/,
        'calculate() -> division by zero'
    );
}

DIVISION_BY_ZERO_FORMULA_CODE: {
    my $formula = 'n100 / ( n10 - n10 )';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        formula  => $formula,
        on_error => sub {$_[0]},
    );

    my $val = $df->calculate(
        n100 => 100,
        n10  => 10,
    );
    is($val, 'Illegal division by zero', 'calculate() -> code ref result');
}

DIVISION_BY_UNDEF_FORMULA: {
    my $formula = 'n100 / nope ';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        formula  => $formula,
        on_error => 0,
    );

    my $val = $df->calculate(n100 => 100,);
    is($val, 0, 'calculate()');
}

DIVISION_BY_UNDEF_FORMULA_UNDEF: {
    my $formula = 'n100 / nope ';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        formula  => $formula,
        on_error => undef,
    );

    my $val = $df->calculate(n100 => 100,);
    is($val, undef, 'calculate() -> undef');
}

DIVISION_BY_UNDEF_FORMULA_EXCEPTION: {
    my $formula = 'n100 / nope ';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    throws_ok(
        sub {
            my $val = $df->calculate(n100 => 100,);
        },
        qr/"nope" is not a literal number, not a valid token.+$this_file/,
        'calculate() -> division by zero'
    );
}

DIVISION_BY_UNDEF_FORMULA_DEFAULT: {
    my $formula = 'n100 / nope ';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(
        formula          => $formula,
        on_missing_token => 1,
    );

    my $val = $df->calculate(n100 => 100,);
    is($val, 100, 'calculate() -> default value for missing token');
}

PERCENT_FORMULA: {
    my $formula = '100 * n45 / n100 ';
    note('testing formula: ' . $formula);
    my $df = Data::Formula->new(formula => $formula,);

    my $val = $df->calculate(
        n100 => 100,
        n45  => 45,
    );
    is($val, 45, 'calculate()');
}

done_testing();