NAME
   Test::Double - Perl extension for Test Double.

SYNOPSIS
     package Foo;
     sub new { bless {}, shift }
     sub bar { 'bar' }

     # in your tests
     use Test::More;
     use Test::Double;

     my $foo = Foo->new;
     is $foo->bar, 'bar', 'bar() returns "bar"';

     # stub out
     stub($foo)->bar('BAR');
     is $foo->bar, 'BAR', 'stubbed bar() returns "BAR"';

     # mock out
     mock($foo)->expects('bar')->returns('BAR');
     is $foo->bar, 'BAR', 'mocked bar() returns 'BAR';

     done_testing;

DESCRIPTION
   Test::Double is a Perl extension for Test Double.

METHODS
   stub($object)
       Returns stub object. This object accepts any methods for stubbing
       using AUTOLOAD mechanism.

         stub($object)->some_method($expected_value);
         # after, $object->some_method() returns $expected_value

       See <http://xunitpatterns.com/Test%20Stub.html>

   mock($object)
       Returns mock object. This object can be defined expectation by
       calling expects() method.

         mock($object)->expects('some_method');
         # after, $object->some_method() returns $expected_value

       See Test::Double::Mock

AUTHOR
   NAKAGAWA Masaki <[email protected]>

LICENSE
   This library is free software; you can redistribute it and/or modify it
   under the same terms as Perl itself.

SEE ALSO
   <http://xunitpatterns.com/Test%20Double.html>

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.