[Templates-cvs] cvs commit: TT3/t test.t

[cvs@template-toolkit.org]

cvs         04/12/01 11:06:02

  Modified:    t        test.t
  Log:
  *** empty log message ***
  
  Revision  Changes    Path
  1.7       +10 -2     TT3/t/test.t
  
  Index: test.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/test.t,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- test.t	2004/11/26 12:33:31	1.6
  +++ test.t	2004/12/01 11:06:02	1.7
  @@ -9,7 +9,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: test.t,v 1.6 2004/11/26 12:33:31 abw Exp $
  +# $Id: test.t,v 1.7 2004/12/01 11:06:02 abw Exp $
   #
   #========================================================================
   
  @@ -25,6 +25,7 @@
   ok( 1, 'loaded Template::Test' );
   
   
  +
   #------------------------------------------------------------------------
   # data_text(), data_tests(),
   #------------------------------------------------------------------------
  @@ -71,6 +72,12 @@
   is( $three->{ name }, 'skipola testola', 'skipola testola' );
   is( $three->{ inflags }->[0], 'skip', 'skip flag' );
   
  +
  +#test_expect( handler => sub {
  +#    my $test = shift;
  +#    return $test->{ input };
  +#});
  +
   __END__
   # Hello World!
   # This is the data section
  @@ -97,8 +104,9 @@
   -- expect --
   because the test is skipped.
   
  -# the end
  +
   __END__
  +
   anything here is ignored
   
   # Local Variables: