basic.t

来自「这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形」· T 代码 · 共 34 行

# basic.t

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

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

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

my $i = 0;

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

sub test {
    my $src = shift;

    my $imfile  = 't/re-DFA-Min/dfa'.++$i.'.min.png';
    my $stdfile = 't/re-DFA-Min/~dfa'.$i.'.min.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";
}