view release on metacpan or  search on metacpan

t/90ex_expr.t  view on Meta::CPAN

use Test2::V0;

use lib ".";
require "examples/eval-expr.pl";

my $parser = ExprParser->new;

while( <DATA> ) {
   chomp;
   my ( $str, $expect ) = split m/=/;

   is( $parser->from_string( $str ), $expect, $str );
}

done_testing;

__DATA__
1+2=3
 1 + 2 =3
1+2+3=6