#!/usr/bin/pugs

use v6;
use Test;
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 @normal_tests.elems + @exception_tests.elems;

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

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