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

[cvs@template-toolkit.org]

cvs         03/12/03 18:27:30

  Modified:    t        base.t
  Log:
  * minor updates
  
  Revision  Changes    Path
  1.2       +5 -3      TT3/t/base.t
  
  Index: base.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/base.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- base.t	2003/12/03 14:04:21	1.1
  +++ base.t	2003/12/03 18:27:29	1.2
  @@ -9,7 +9,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: base.t,v 1.1 2003/12/03 14:04:21 abw Exp $
  +# $Id: base.t,v 1.2 2003/12/03 18:27:29 abw Exp $
   #
   #========================================================================
   
  @@ -18,7 +18,7 @@
   
   use lib qw( ./lib ../lib );
   use Template::Toolkit::Base;
  -use Test::More tests => 43;
  +use Test::More tests => 44;
   
   $Template::Toolkit::Base::DEBUG = grep(/^--?d(ebug)?/, @ARGV);
   
  @@ -70,6 +70,8 @@
   
   # warnings() returns list ref in scalar context
   my $warns = $obj->warnings();
  +is( $warns, 3, 'three warnings' );
  +$warns = $obj->warning();
   is( $warns->[0], 'first warning', 'list ref warning one' );
   is( $warns->[1], 'second warning', 'list ref warning two' );
   
  @@ -172,4 +174,4 @@
   is( $obj->name(), 'foo', 'args name matches' );
   
   
  -__END__
  \ No newline at end of file
  +__END__