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.
To install Acme::Test::Pr0n, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Acme::Test::Pr0n
CPAN shell
perl -MCPAN -e shell install Acme::Test::Pr0n
For more information on module installation, please visit the detailed CPAN module installation guide.