view release on metacpan or  search on metacpan

t/TestPegexForth.pm  view on Meta::CPAN

use strict; use warnings;
package TestPegexForth;
use Test::More();
use Pegex::Forth;
use Capture::Tiny ':all';

strict->import;
warnings->import;

use base 'Exporter';
our @EXPORT = qw(test_top test_stack test_out test_err);

sub test_top {
    my ($forth, $want, $label) = @_;
    my $got = Pegex::Forth->new->run($forth);
    Test::More::is $got, $want, $label;
}