Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Micro Mocking: using local to help test subs

by adrianh (Chancellor)
on Jan 13, 2003 at 01:19 UTC ( #226368=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    package DeepThought;
        my ($self, $n) = @_;
        print "$self says the answer is $n\n";
  2. or download this
    use Test::More tests => 2;
        ok($ok, 'foo called bar');
  3. or download this
    package Foo;
    use CGI;
        my $class = shift;
        bless {cgi => CGI->new}, $class;
  4. or download this
    use Test::More tests => 1;
        my $o = Foo->new;
        ok($called, 'Foo->new called CGI->new');

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://226368]
Approved by rob_au
Front-paged by sauoq
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2015-10-06 23:09 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (163 votes), past polls