use strict;
use warnings;
use Test::More;
use Data::Dumper;
BEGIN { plan tests => 4 }
use Math::Expression::Evaluator;
my $m = new Math::Expression::Evaluator;
ok($m, "new works");
sub e {
        $m->parse(shift);
#       print STDERR Dumper($m->{ast});
        return $m->val();
}
is e('0.0'),    "0.0",  "0.0 works" ;
is e('0'),      0,      "0 works" ;
is e('1-1'),    0,      '1-1 is 0';