Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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. :)

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2022-11-27 19:38 GMT
Find Nodes?
    Voting Booth?