use strict;
use warnings;
use Test::More;
BEGIN { plan tests => 4 }
use Math::Expression::Evaluator;
my $m = new Math::Expression::Evaluator;
ok($m, "new works");
sub exec_fail {
        my ($string, $hash, $explanation) = @_;
        $m->parse($string);
        eval { $m->val($hash) };
        ok($@, $explanation);
}
exec_fail 'a',          {},             'undefined variable 1';
exec_fail 'a',          {b => 1},    'undefined variable 2';
exec_fail 'foo()',      {},             'undefined function';