use strict;
use warnings;
use Test::More;
use Rpn;

my @normal_tests = (
    [ '1 2 +', 3 ],
    [ '1 -2 -', 3 ],
    [ '-1 2 +', 1 ],
    [ '1 2 -', -1 ],
    [ '1 2 + 3 -', 0 ],
    [ '1 2 - 3 -', -4 ],
    [ '1 2 - 5 +', 4 ],
    [ '1 2 - 5 + 2 -', 2 ],
    [ '1 1 1 1 1 2 + + + + +', 7 ],
    [ '1 -5 +', -4 ],
    [ '5 3 *', 15 ],
    [ '-2 -5 *', 10 ],
    [ '2 -5 *', -10 ],
    [ '6 4 /', 1 ],
    [ '0 1 /', 0 ],
    [ '1 0 *', 0 ],
    [ '00 1 +', 1 ],
    [ '1 00 -', 1 ],
    [ '00', 0 ],
    [ '-00', 0 ],
    [ '1 2 3 * +', 7 ],
    [ '3 4 * 2 3 * +', 18 ],
    [ '3 4 * 2 / 3 *', 18 ],
    [ '3 4 * 5 / 3 *', 6 ],
    [ '999999 1000 / 67 * 56 80 * 8 * -', 31093 ],
    [ '42', 42 ],
);

my @exception_tests = (
    [ '5 4 %',     "Invalid token:\"%\"\n"    ],
    [ '5 +',       "Stack underflow\n"        ],
    [ '+',         "Stack underflow\n"        ],
    [ '5 4 + 42',  "Invalid stack:[9 42]\n"   ],
    [ '',          "Invalid stack:[]\n"       ],
);

plan tests => @normal_tests + @exception_tests;

for my $t (@normal_tests) {
    cmp_ok(Rpn::evaluate($t->[0]), '==', $t->[1]);
}

for my $t (@exception_tests) {
    eval { Rpn::evaluate($t->[0]) };
    is($@, $t->[1]);
}