view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 21;
use Data::Dumper;

BEGIN {
	use_ok( 'Acme::AlgebraicToRPN' );
}

diag( "Testing Acme::AlgebraicToRPN $Acme::AlgebraicToRPN::VERSION, Perl $], $^X" );

my $rpn = Acme::AlgebraicToRPN->new(userFunc => [qw(box news foo)]);

my $expr = '4+3';