Trevor,<br><br>Thanks for the tip, I ended up overriding the model method. Works like a charm ;)<br><br clear="all">-- Frank <br><br>“Don’t worry if it doesn’t work right. If everything did, you’d be out of a job.” (Mosher’s Law of Software Engineering)<br>
<br><br><div class="gmail_quote">On Fri, Apr 29, 2011 at 3:14 PM, Trevor Leffler <span dir="ltr"><<a href="mailto:tleffler@uw.edu">tleffler@uw.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Hi Frank,<br>
<br>
Have you mocked $c->model so that you get your mock, $pin_attempt_mock, when you call $c->model('Foo') ?<br>
<br>
You can either create a MockObject for $c, or you can locally override $c's model method. I tend to do the former.<br>
<br>
--Trevor<div><div></div><div class="h5"><br>
<br>
<br>
Franklin Kumro Jr wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hello,<br>
<br>
I have a model (MyApp/Models/Bar.pm) which retrieves data from the db using the generated schema files (in MyApp/Schema/Result/*.pm).<br>
<br>
My plan is to mock the classes which are called when retrieving data from the database.<br>
<br>
BEGIN {<br>
my $resultset_mock = Test::MockObject->new();<br>
$resultset_mock->fake_module('DBIx::Class::ResultSet' => ( 'count' => sub { 0 } ));<br>
<br>
my $pin_attempt_mock = Test::MockObject->new();<br>
$pin_attempt_mock->fake_module('MyApp::Schema::Result::Foo' => ('search' => sub { bless $resultset_mock, 'DBIx::Class::ResultSet' }));<br>
}<br>
<br>
<br>
BEGIN { use_ok 'MyApp::Model::Bar' }<br>
<br>
is (MyApp::Model::Bar->_get_failed_challenges('test', 'test'),<br>
0,<br>
'get failed challenges'<br>
);<br>
<br>
MyApp::Model::Bar->_get_failed_challenges contains calls to search and count (shown below)<br>
<br>
my $result = $c->model('Foo')->search({...});<br>
$result->count();<br>
<br>
If I call MyApp::Schema::Result::Foo->search()->count() the mock returns 0 (and other values that I tested). However when I attempt to use test the Bar model the following error is returned.<br>
<br>
"You must pass a package name and it cannot be blessed at /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/Class/MOP/Class.pm line 41"<br>
<br>
Also if I follow the stack trace down into the MyApp files, it points to the line in MyApp::Model::Bar->_get_failed_challenges which calls search.<br>
<br>
Any help would be appreciated!<br>
<br>
Thanks,<br>
<br>
-- Frank<br>
</blockquote>
<br>
<br></div></div>
_______________________________________________<br>
List: <a href="mailto:Catalyst@lists.scsys.co.uk" target="_blank">Catalyst@lists.scsys.co.uk</a><br>
Listinfo: <a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst" target="_blank">http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst</a><br>
Searchable archive: <a href="http://www.mail-archive.com/catalyst@lists.scsys.co.uk/" target="_blank">http://www.mail-archive.com/catalyst@lists.scsys.co.uk/</a><br>
Dev site: <a href="http://dev.catalyst.perl.org/" target="_blank">http://dev.catalyst.perl.org/</a><br>
</blockquote></div><br>