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

[cvs@template-toolkit.org]

cvs         04/03/25 14:34:38

  Modified:    t        cache.t
  Log:
  * fixed test and added one to reflect changes in decline()
  
  Revision  Changes    Path
  1.2       +5 -4      TT3/t/cache.t
  
  Index: cache.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/cache.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cache.t	2004/03/24 13:09:30	1.1
  +++ cache.t	2004/03/25 14:34:38	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: cache.t,v 1.1 2004/03/24 13:09:30 abw Exp $
  +# $Id: cache.t,v 1.2 2004/03/25 14:34:38 abw Exp $
   #
   #========================================================================
   
  @@ -18,7 +18,7 @@
   
   use lib qw( ./lib ../lib );
   use Template::Cache;
  -use Test::More tests => 17;
  +use Test::More tests => 18;
   
   # run with -d flag to enable debugging, e.g. perl cache.t -d
   my $DEBUG = 
  @@ -61,12 +61,13 @@
   
   # pi should have been discarded
   ok( ! defined $cache->get('pi'),'no more pi' );
  -is( $cache->declined(), "not found in cache: pi", 'cache declined pi' );
  +ok( $cache->declined(), 'cache declined pi' );
  +is( $cache->error(), "not found in cache: pi", 'cache declined pi error' );
   
   # but e should still be there
   is( $cache->get('e'), 2.718, 'still got e though' );
   
  -print STDERR $cache->_slot_report() if $DEBUG;
  +#print STDERR $cache->_slot_report() if $DEBUG;
   
   __END__