这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形
源代码在线查看： basic.t.svn-base
# 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"; }
