Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

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;
    
    ...
        $o->foo();
        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?
Username:
Password:

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
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2014-08-22 04:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (146 votes), past polls