If you want to see a fair amount of frivolity, check out some of the source code from the CPAN. Here's some snippets from the tests of Test::Simple:
My personal favorite:
skip $Why, 2
my $pig = Pigs->new;
ok( $pig->altitude > 0, 'Pig is airborne' );
ok( $pig->airspeed > 0, ' and moving' );
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.