perl-flat-cvs-notify

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

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

Modified Files:
	FLAT.t 
Added Files:
	FLAT-FA-INPUT.t 
Log Message:
more tests...input and output files now

Index: FLAT.t
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/t/FLAT.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FLAT.t	24 Feb 2006 18:28:23 -0000	1.2
--- FLAT.t	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 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') };
--- 6,10 ----
  # change 'tests => 1' to 'tests => last_test_to_print';
  
! use Test::More tests => 16;
  use lib qw(../lib);
  BEGIN { use_ok('FLAT::FA') };
***************
*** 26,29 ****
  isa_ok($pfa,'FLAT::FA::PFA');
  my $nfa = $pfa->to_nfa();
  my $dfa = $nfa->to_dfa();
! my $dfa_min = $dfa->minimize();
--- 26,33 ----
  isa_ok($pfa,'FLAT::FA::PFA');
  my $nfa = $pfa->to_nfa();
+ isa_ok($nfa,'FLAT::FA::NFA');
  my $dfa = $nfa->to_dfa();
! isa_ok($dfa,'FLAT::FA::DFA');
! my @removed = $dfa->minimize();
! isa_ok($dfa,'FLAT::FA::DFA');
! ok(($#removed+1) >= 0,'FLAT::FA::DFA->minimize() returns int >= 0');

--- NEW FILE: FLAT-FA-INPUT.t ---
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl FLAT-FA.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 16;
use lib qw(../lib);
BEGIN { use_ok('FLAT::FA') };
BEGIN { use_ok('FLAT::FA::DFA') };
BEGIN { use_ok('FLAT::FA::NFA') };
BEGIN { use_ok('FLAT::FA::PFA') };
BEGIN { use_ok('FLAT::FA::RE') };
BEGIN { use_ok('FLAT::FA::PRE') };
use Cwd;

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');

#
# Tests ability to read input files and generate valid
# output
#

#my $dfa = FLAT::FA::DFA->new();
#isa_ok($dfa,'FLAT::FA::DFA');
#$dfa->load_file('input/dfa.1');
#isa_ok($dfa,'FLAT::FA::DFA');