Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
File	[ DIR ]	drwxr-xr-x
Memory	[ DIR ]	drwxr-xr-x
Null	[ DIR ]	drwxr-xr-x
RemovalStrategy	[ DIR ]	drwxr-xr-x
BaseCache.pm	14.73 KB	-rw-r--r--
BaseCacheTester.pm	2.76 KB	-rw-r--r--
Cache.pm	8.22 KB	-rw-r--r--
CacheMetaData.pm	5.73 KB	-rw-r--r--
CacheSizer.pm	3.94 KB	-rw-r--r--
CacheTester.pm	13.05 KB	-rw-r--r--
CacheUtils.pm	2.85 KB	-rw-r--r--
Entry.pm	8.37 KB	-rw-r--r--
File.pm	16.72 KB	-rw-r--r--
FileBackend.pm	14.06 KB	-rw-r--r--
FileCache.pm	7.17 KB	-rw-r--r--
IOString.pm	3.24 KB	-rw-r--r--
Memory.pm	9.64 KB	-rw-r--r--
MemoryBackend.pm	2.57 KB	-rw-r--r--
MemoryCache.pm	2.76 KB	-rw-r--r--
Null.pm	2.27 KB	-rw-r--r--
NullCache.pm	2.21 KB	-rw-r--r--
Object.pm	3.4 KB	-rw-r--r--
RemovalStrategy.pm	1.03 KB	-rw-r--r--
SharedMemoryBackend.pm	4.72 KB	-rw-r--r--
SharedMemoryCache.pm	3.4 KB	-rw-r--r--
SizeAwareCache.pm	3.04 KB	-rw-r--r--
SizeAwareCacheTester.pm	5.66 KB	-rw-r--r--
SizeAwareFileCache.pm	3.68 KB	-rw-r--r--
SizeAwareMemoryCache.pm	3.35 KB	-rw-r--r--
SizeAwareSharedMemoryCache.pm	2.55 KB	-rw-r--r--
Tester.pm	13.44 KB	-rw-r--r--

Code Editor : BaseCacheTester.pm

######################################################################
# $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}++;
}

__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
increments the test count.

=item B<not_ok( $message )>

Print a message to stdout in the form "not ok $test_count # I<$message> "
and increments the test count.

=item B<skip( $message )>

Print a message to stdout in the form "ok $test_count # skipped I<$message> "
and increments the test count.

=back

=head1 SEE ALSO

Cache::CacheTester, Cache::SizeAwareCacheTester

=head1 AUTHOR

Original author: DeWitt Clinton <dewitt@unto.net>

Last author:     $Author: dclinton $

=cut

${this.title}

Code Editor : BaseCacheTester.pm