Item8706: Foswiki cache needs Cache::Cache to work with

the basic FileCache feature. This will be the basic out of box default cache
We need to provide the needed CPAN lib for this as this is not standard in Perl
This is needed for people on shared hosts as well as normal Linux users
Cache::Cache is a mature stable pure perl lib which is not too large to distribute
and now Foswiki cache is a core feature it is natural to have the needed CPAN lib
like we have with CGI::Session. Since we added that support questions dropped
dramatically. Lib is GPL.


git-svn-id: http://svn.foswiki.org/trunk@6871 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

core/lib/CPAN/lib/Cache/BaseCacheTester.pm

@@ -0,0 +1,162 @@
+######################################################################
+# $Id: BaseCacheTester.pm,v 1.7 2002/04/07 17:04:46 dclinton Exp $
+# Copyright (C) 2001-2003 DeWitt Clinton  All Rights Reserved
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+######################################################################
+
+
+package Cache::BaseCacheTester;
+
+
+use strict;
+
+
+sub new
+{
+  my ( $proto, $base_test_count ) = @_;
+  my $class = ref( $proto ) || $proto;
+  my $self  = {};
+  bless ( $self, $class );
+
+  $base_test_count = defined $base_test_count ? $base_test_count : 0 ;
+
+  $self->_set_test_count( $base_test_count );
+
+  return $self;
+}
+
+
+sub ok
+{
+  my ( $self ) = @_;
+
+  my $test_count = $self->_get_test_count( );
+
+  print "ok $test_count\n";
+
+  $self->_increment_test_count( );
+}
+
+
+sub not_ok
+{
+  my ( $self, $message ) = @_;
+
+  my $test_count = $self->_get_test_count( );
+
+  print "not ok $test_count # failed '$message'\n";
+
+  $self->_increment_test_count( );
+}
+
+
+sub skip
+{
+  my ( $self, $message ) = @_;
+
+  my $test_count = $self->_get_test_count( );
+
+  print "ok $test_count # skipped $message \n";
+
+  $self->_increment_test_count( );
+}
+
+
+sub _set_test_count
+{
+  my ( $self, $test_count ) = @_;
+
+  $self->{_Test_Count} = $test_count;
+}
+
+
+sub _get_test_count
+{
+  my ( $self ) = @_;
+
+  return $self->{_Test_Count};
+}
+
+
+sub _increment_test_count
+{
+  my ( $self ) = @_;
+
+  $self->{_Test_Count}++;
+}
+
+
+1;
+
+
+__END__
+
+
+=pod
+
+=head1 NAME
+
+Cache::BaseCacheTester -- abstract cache tester base class
+
+=head1 DESCRIPTION
+
+BaseCacheTester provides functionality common to all instances of a
+class that will test cache implementations.
+
+=head1 SYNOPSIS
+
+BaseCacheTester provides functionality common to all instances of a
+class that will test cache implementations.
+
+  package Cache::MyCacheTester;
+
+  use vars qw( @ISA );
+  use Cache::BaseCacheTester;
+
+  @ISA = qw( Cache::BaseCacheTester );
+
+=head1 METHODS
+
+=over
+
+=item B<new( $base_test_count )>
+
+Construct a new BaseCacheTester and initialize the test count to
+I<$base_test_count>.
+
+=item B<ok( )>
+
+Print a message to stdout in the form "ok $test_count" and
+incremements the test count.
+
+=item B<not_ok( $message )>
+
+Print a message to stdout in the form "not ok $test_count # I<$message> "
+and incremements the test count.
+
+=item B<skip( $message )>
+
+Print a message to stdout in the form "ok $test_count # skipped I<$message> "
+and incremements the test count.
+
+=back
+
+=head1 SEE ALSO
+
+Cache::CacheTester, Cache::SizeAwareCacheTester
+
+=head1 AUTHOR
+
+Original author: DeWitt Clinton <dewitt@unto.net>
+
+Last author:     $Author: dclinton $
+
+Copyright (C) 2001-2003 DeWitt Clinton
+
+=cut
+
+