basic.t

这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形

# basic.t

use strict;
use warnings;
use File::Compare 'compare';

use Test::More tests => 7 * 2 + 1;
BEGIN { use_ok('re::NFA'); }

*gen = sub { re::NFA->translate(@_) };

my $i = 0;

test('a');
test('ab');
test('a*');
test('a|b');
test('(a|b)*(aa|bb)(a|b)*');
test('(a|)b*');
test('');

sub test {
    my $src = shift;

    my $imfile  = 't/re-NFA/nfa'.++$i.'.png';
    my $stdfile = 't/re-NFA/~nfa'.$i.'.png';
    unlink $imfile if -f $imfile;
    gen($src, $imfile);
    ok -f $imfile, "'$src' - comp $imfile $stdfile";
    is compare($imfile, $stdfile), 0, "'$src' - comp $imfile $stdfile";
}