Hi all,

I am trying to write test for the application I am maintaining. It has a lot of OO modules. To start, I created a test like this for one of those modules (modified from the original code):

#!/usr/bin/perl

use strict;
use warnings;

use Test::MockObject::Extends;

my $mock_property = Test::MockObject::Extends->new('MyApp::Property');
$mock_property->mock('id', '1');
$mock_property->mock('su_pwd', 'password');

my $admin = MyApp::Admin->new(owner => $mock_property, id => 0);
is_deeply(
    $admin, 
    {
        admin_id => 0,
        domain_id => '1',
        firstname => 'Super',
        lastname => 'User',
        username => 'su',
        password => 'password',
    },
    "new() with id eq '0' (superuser)"
);

-----------------------------------

package MyApp::Admin;

use strict;
use warnings;

use Params::Validate ':all';

sub new
{
    my $class = shift;
        my %args = validate(@_,
        id => { type => SCALAR },
        owner => { isa => 'MyApp::Property' },
    );

        my $self = bless {
        admin_id => $args{id},
        domain_id => $args{owner}->id,
        firstname => 'Super',
        lastname => 'User',
        username => 'su',
        password => $args{owner}->su_pwd,
    }, $class;

    return $self;
}

[download]

When I run the test, it breaks with Params::Validate error saying that 'owner' parameter is an object of 'T::MO::E::a', not 'MyApp::Property'. I guess this is because Params::Validate does not validate the 'owner' parameter by calling 'isa', but checking the perl's internal data structure to check 'isa'.

Is there anyway to go around this? Or do I have to create my own mock object library?

Thanks

--------------
badaiaqrandista

In reply to Params::Validate and Test::MockObject::Extends by badaiaqrandista

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.