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

[cvs@template-toolkit.org]

cvs         04/03/25 16:59:03

  Modified:    t        test.t
  Log:
  * new tests
  
  Revision  Changes    Path
  1.3       +17 -4     TT3/t/test.t
  
  Index: test.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/test.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- test.t	2003/12/16 18:46:46	1.2
  +++ test.t	2004/03/25 16:59:03	1.3
  @@ -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.2 2003/12/16 18:46:46 abw Exp $
  +# $Id: test.t,v 1.3 2004/03/25 16:59:03 abw Exp $
   #
   #========================================================================
   
  @@ -17,11 +17,11 @@
   use warnings;
   
   use lib qw( ./lib ../lib );
  -use Template::TT3::Test qw( :all );
  -use Test::More tests => 22;
  +use Template::Test qw( :all );
  +use Test::More tests => 23;
   
   my $DEBUG = grep /^--?d(ebug)?$/, @ARGV;
  -$Template::TT3::Test::DEBUG = $DEBUG;
  +$Template::Test::DEBUG = $DEBUG;
   
   
   # get data text
  @@ -34,6 +34,9 @@
   ok( $text, 'got data text again' );
   ok( length $text > 200, 'length is still about right' );
   
  +like( $text, qr/the end$/, 'end of text looks good' );
  +
  +
   my $tests = data_tests();
   ok( $tests, 'got some tests' );
   is( scalar @$tests, 3, 'got three tests' );
  @@ -91,3 +94,13 @@
   because the test is skipped.
   
   # the end
  +__END__
  +anything here is ignored
  +
  +# Local Variables:
  +# mode: perl
  +# perl-indent-level: 4
  +# indent-tabs-mode: nil
  +# End:
  +#
  +# vim: expandtab shiftwidth=4: