Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Test::Pockito, a new module for mocking stuff

by exussum0 (Vicar)
on Jul 27, 2010 at 03:27 UTC ( #851462=note: print w/ replies, xml ) Need Help??


in reply to Test::Pockito, a new module for mocking stuff

Stolen from the readme

package Love; sub new { return bless {}, Love; } sub marry { my $self = shift; my $user1 = shift; my $user2 = shift; my $db_object = $self->{'db_object'}; if ( $db_object->is_married($user1) == 0 && $db_object->is_married($user2) == 0 ) { $db_object->marry( $user1, $user2 ); $db_object->marry( $user2, $user1 ); return 1; } return 0; } package MyDbClass; sub is_married { # do some complicated stuff } sub marry { # do some other complicated stuff } #Our test can be use Test::Pockito; use Test::Simple; my $pocket = Test::Pockito->new("MyNamespace"); my $db_mock = $pocket->mock("MyDbClass"); $pocket->when( $db_mock->is_married("bob") )->then(0); $pocket->when( $db_mock->is_married("alice") )->then(0); $pocket->when( $db_mock->marry( "alice", "bob" ) )->then(); $pocket->when( $db_mock->marry( "bob", "alice" ) )->then(); my $target = Love->new(); $target->{'db_object'} = $db_mock; ok( $target->marry( "bob", "alice" ) == 1, "single to married == success!" ); ok( scalar keys %{ $pocket->expected_calls } == 0, "No extra cruft calls, huzzah!" );
An easy improvement would be to have a count_expected_calls_outstanding or something silly, but it's a first release. :)


Comment on Re: Test::Pockito, a new module for mocking stuff
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://851462]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-07-12 19:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (241 votes), past polls