Acme::Test::Pr0n - Perl extension for wasteing your time.

NAME

Acme::Test::Pr0n - Perl extension for wasteing your time.

SYNOPSIS

  use Test::More tests => 3;
  use Acme::Test::Pr0n;
  my $filename = '/any/old/text/file.txt';
  my $pr0n_test = Acme::Test::Pr0n->new({
    'filename' => $filename,
  });
  ok($pr0n_test->pr0n() > 5,
             'The string pr0n is hidden in the file more than 5 times');
  ok($pr0n_test->XXX() > 4,
             'The string XXX is hidden in the file more than 4 times');
  ok($pr0n_test->XXX('i') > 4,
             'The string XXX is hidden in the file more than 4 times
              without beinge case sensative');


=head1 DESCRIPTION

This test object has been inspired by Schwern and advanced testing, a conversation on IRC and a reference to Schwern and pr0n. Having written it I realise it's not very pr0n specific but I'm sure it will be abused properly.

Any thing can be tested for, just make up the method name and pass in a 'i' if you want it case insensitive.

THANKS

Simon Wilcox, Schwern, LPM, my mum and dad, everyone who knows me..

AUTHOR

Leo Lapworth <lt>llap@cuckoo.org

SEE ALSO

the perl manpage.

 Acme::Test::Pr0n - Perl extension for wasteing your time.