[Templates-cvs] cvs commit: TT3/lib/Template Test.pm

[cvs@template-toolkit.org]

cvs         04/11/15 19:34:27

  Modified:    lib/Template Test.pm
  Log:
  * added 'inflag' and 'exflag' hash arrays to each test returned by
    data_tests()
  
  Revision  Changes    Path
  1.3       +5 -3      TT3/lib/Template/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /template-toolkit/TT3/lib/Template/Test.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Test.pm	2004/11/08 18:49:06	1.2
  +++ Test.pm	2004/11/15 19:34:27	1.3
  @@ -18,7 +18,7 @@
   #   modify it under the same terms as Perl itself.
   #
   # REVISION
  -#   $Id: Test.pm,v 1.2 2004/11/08 18:49:06 abw Exp $
  +#   $Id: Test.pm,v 1.3 2004/11/15 19:34:27 abw Exp $
   #
   #========================================================================
   
  @@ -30,7 +30,7 @@
   use Template::Base;
   use base qw( Template::Base Exporter );
   
  -our $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
  +our $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
   our $DEBUG   = 0 unless defined $DEBUG;
   our $ERROR   = '';
   our $MAGIC   = '\s* -- \s*';
  @@ -137,7 +137,9 @@
               input   => $input,
               expect  => $expect,
               inflags => \@inflags,
  +            inflag  => { map { ($_, 1) } @inflags },
               exflags => \@exflags,
  +            exflag  => { map { ($_, 1) } @exflags },
           };
       }
   
  @@ -439,7 +441,7 @@
   
   =head1 VERSION
   
  -$Revision: 1.2 $
  +$Revision: 1.3 $
   
   =head1 COPYRIGHT