I wanted to write a tutorial for this but probably this needs some more work or maybe there is already a known a better way to do this. I was actually surprised that Test::MockObject had no apparent easy way to emulate accessors, at least it was not obvious from the pod
The thing is that when testing complex Moose stuff I found myself having to mock quite a few objects and their getters and setters so I came up with a simple method of using global variables in the test script and mocking the getters and setters to them.
Comments welcome to see if it's worth anything for a tutorial, or comments on how to better do this!
# Setup the mockery
my $entity = Test::MockObject->new();
$entity->fake_module('foo::entity');
my $error = undef;
$entity->mock('error',sub {shift; &mock_accessor_var(\$error,@_)});
my $reqbody = undef;
$entity->mock('reqbody',sub {shift; &mock_accessor_var(\$reqbody,@_)})
+;
# Do the tests
$entity->reqbody('blah');
my $r = $reqproc->decode($entity);
ok(!$r, 'Bad request expected to fail');
ok($entity->error eq 'XDOMERR', 'Got XDOMERR');
# the accessor to var mocker
sub mock_accessor_var {
my $var = shift;
if(@_){
$$var = shift;
}
else{
return $$var;
}
}