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. :)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|