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

  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');

  

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.

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

Leo Lapworth <lt>llap@cuckoo.org<gt>

perl.