[Perl-flat-cvs-notify] flat4cpan/t FLAT.t,1.1,1.2

[<per...@li...>]

Update of /cvsroot/perl-flat/flat4cpan/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21433/t

Modified Files:
	FLAT.t 
Log Message:
at this point I am just learning about the Test module

Index: FLAT.t
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/t/FLAT.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FLAT.t	24 Feb 2006 00:03:39 -0000	1.1
--- FLAT.t	24 Feb 2006 18:28:23 -0000	1.2
***************
*** 6,10 ****
  # change 'tests => 1' to 'tests => last_test_to_print';
  
! use Test::More tests => 6;
  use lib qw(../lib);
  BEGIN { use_ok('FLAT::FA') };
--- 6,10 ----
  # change 'tests => 1' to 'tests => last_test_to_print';
  
! use Test::More tests => 12;
  use lib qw(../lib);
  BEGIN { use_ok('FLAT::FA') };
***************
*** 14,15 ****
--- 14,29 ----
  BEGIN { use_ok('FLAT::FA::RE') };
  BEGIN { use_ok('FLAT::FA::PRE') };
+ 
+ isa_ok(FLAT::FA::DFA->new(),'FLAT::FA::DFA');
+ isa_ok(FLAT::FA::NFA->new(),'FLAT::FA::NFA');
+ isa_ok(FLAT::FA::PFA->new(),'FLAT::FA::PFA');
+ isa_ok(FLAT::FA::RE->new(),'FLAT::FA::RE');
+ isa_ok(FLAT::FA::PRE->new(),'FLAT::FA::PRE');
+ 
+ my $pre = FLAT::FA::PRE->new();
+ $pre->set_pre("010|10&01");
+ my $pfa = $pre->to_pfa();
+ isa_ok($pfa,'FLAT::FA::PFA');
+ my $nfa = $pfa->to_nfa();
+ my $dfa = $nfa->to_dfa();
+ my $dfa_min = $dfa->minimize();