mock a method on a single object

Prev: FAQ 3.7 How do I cross-reference my Perl programs?
Next: FAQ 1.14 What is a JAPH?

From: Belebele on 6 Apr 2010 22:46

---

How can I mock a method on a _single_ object (as opposed to mocking
the method on all the objects of a class)? Consider:

package Foo;
{
sub new {
my $class = shift;
return bless {}, $class;
}

sub bar { print "bar\n" }
}


my ($a_foo, $another_foo) = (new Foo(), new Foo());
sub print_something { print "something\n" }
*Foo::bar = *print_something; # I would like to change the behavior
for only $a_foo, but not for $another_foo
$a_foo->bar(); # print_something
$another_foo->bar(); # print_something

Thanks

From: Willem on 7 Apr 2010 01:54

---

Belebele wrote:
) How can I mock a method on a _single_ object (as opposed to mocking
) the method on all the objects of a class)? Consider:

I'm not sure what you mean by 'mocking', but if it means what I think it
means, I would think that Perl calls that 'blessing' ?

) my ($a_foo, $another_foo) = (new Foo(), new Foo());
) sub print_something { print "something\n" }
) *Foo::bar = *print_something; # I would like to change the behavior
) for only $a_foo, but not for $another_foo
) $a_foo->bar(); # print_something
) $another_foo->bar(); # print_something

Perhaps something like:

bless $a_foo, 'Foo::barbaz';

package Foo::barbaz
our @ISA = 'Foo::bar';
sub print_something { print "something\n" }

would do the trick ?

Although I'm still not entirely sure what you intend to do.


SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT

From: Naveed on 7 Apr 2010 03:47

---

On Apr 7, 3:46 am, Belebele <beluc...(a)gmail.com> wrote:
> How can I mock a method on a _single_ object (as opposed to mocking
> the method on all the objects of a class)? Consider:
>
> package Foo;
> {
>         sub new {
>                 my $class = shift;
>                 return bless {}, $class;
>         }
>
>         sub bar { print "bar\n" }
>
> }
>
> my ($a_foo, $another_foo) = (new Foo(), new Foo());
> sub print_something { print "something\n" }
> *Foo::bar = *print_something;  # I would like to change the behavior
> for only $a_foo, but not for $another_foo
> $a_foo->bar();                        # print_something
> $another_foo->bar();               # print_something
>
> Thanks

Look at http://p3rl.org/Test::MockObject::Extends

From: Peter Scott on 7 Apr 2010 07:28

---

On Tue, 06 Apr 2010 19:46:35 -0700, Belebele wrote:
> How can I mock a method on a _single_ object (as opposed to mocking the
> method on all the objects of a class)? Consider:
>
> package Foo;
> {
> sub new {
> my $class = shift;
> return bless {}, $class;
> }
>
> sub bar { print "bar\n" }
> }
>
>
> my ($a_foo, $another_foo) = (new Foo(), new Foo()); sub print_something
> { print "something\n" } *Foo::bar = *print_something; # I would like to
> change the behavior for only $a_foo, but not for $another_foo
> $a_foo->bar(); # print_something
> $another_foo->bar(); # print_something

$ cat foo
#!/usr/local/bin/perl
use strict;
use warnings;
use 5.10.0;

package Foo;
sub bar { say "bar" }
sub new { bless {}, shift }

package main;
use Test::MockObject::Extends;

my $x = Foo->new;
$x = Test::MockObject::Extends->new( $x );
$x->mock( bar => sub { say "mocked" } );
my $y = Foo->new;
$x->bar;
$y->bar;

$ ./foo
mocked
bar

--
Peter Scott
http://www.perlmedic.com/ http://www.perldebugged.com/
http://www.informit.com/store/product.aspx?isbn=0137001274
http://www.oreillyschool.com/courses/perl1/

 | 
Pages: 1
Prev: FAQ 3.7 How do I cross-reference my Perl programs?
Next: FAQ 1.14 What is a JAPH?