.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.14)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Mock 3pm"
.TH Mock 3pm "2006-07-23" "Lire 2.1.1" "LogReport's Lire Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Lire::Test::Mock \- Create mock object
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 3
\&  use Lire::Report;
\&  use Lire::Test::Mock;
\&  use Lire::DlfResult;
\&
\&  my $mock = new Lire::Test::Mock( \*(AqLire::Report\*(Aq );
\&  $mock\->set_result( \*(Aqtimestamp\*(Aq, $time );
\&  $mock\->timestamp(); # will return $time
\&  $mock\->get_calls(); # [ \*(Aqtimestamp\*(Aq ]
\&  $mock\->get_invocation( \*(Aqtimestamp\*(Aq, 0 ); # [ $mock ]
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This class makes it easy to defined mock objects. Mock objects are
objects which offers the same interface than another object but which
do not share its functionality. This makes it easier to test objects
which requires fixtures which have lots of dependencies.
.PP
The mock object can be used to collect information about calls made on
the object. Returns value for such method invocation can also be
specified.
.ie n .SS "new( $class, 'method' => $result, 'method' => $result )"
.el .SS "new( \f(CW$class\fP, 'method' => \f(CW$result\fP, 'method' => \f(CW$result\fP )"
.IX Subsection "new( $class, 'method' => $result, 'method' => $result )"
Creates a new mock object that will wrap \f(CW$class\fR. Any other keyword
arguments will be use to initialize the result of methods call. See
\&\fIset_result()\fR for information on how this works.
.ie n .SS "new_proxy( $class, @constructor_params )"
.el .SS "new_proxy( \f(CW$class\fP, \f(CW@constructor_params\fP )"
.IX Subsection "new_proxy( $class, @constructor_params )"
This creates mock object which for the base \f(CW$class\fR. A proxy mock
object will still monitor calls to the object but the real methods
will be invoked, unless a result was specified using \fIset_result()\fR. Any
remaining parameters will be passed to the \fInew()\fR method which should
be defined in the class.
.ie n .SS "new_proxy( $instance )"
.el .SS "new_proxy( \f(CW$instance\fP )"
.IX Subsection "new_proxy( $instance )"
Makes a Lire::Test::Mock object which is a clone of \f(CW$instance\fR.
.SS "\fIis_proxy()\fP"
.IX Subsection "is_proxy()"
Returns whether this mock object will proxy to the real methods
when no results was defined for a specific method.
.SS "\fIget_calls()\fP"
.IX Subsection "get_calls()"
Returns an array reference containing all the methods called on the
object.
.ie n .SS "invocation_count( $method )"
.el .SS "invocation_count( \f(CW$method\fP )"
.IX Subsection "invocation_count( $method )"
Returns the number of time \f(CW$method\fR was called.
.ie n .SS "get_invocation( $method, $index )"
.el .SS "get_invocation( \f(CW$method\fP, \f(CW$index\fP )"
.IX Subsection "get_invocation( $method, $index )"
Returns the parameter that were given when method \f(CW$method\fR was called.
.ie n .SS "set_result( method => $result, ... )"
.el .SS "set_result( method => \f(CW$result\fP, ... )"
.IX Subsection "set_result( method => $result, ... )"
This assign the result \f(CW$result\fR to \f(CW$method\fR. If \f(CW$result\fR is a code
reference, it will be invoked with the same argument than the method
to compute the result.
.SH "USING MOCK FACTORIES"
.IX Header "USING MOCK FACTORIES"
Sometime, it is not possible to instatiate a proxy or mock object
during fixture setup. This will usually happen when the object which
we want to track access to is instantiated by the method under test.
In these cases, one can use the \fIset_mock_factory()\fR class method to
change the factory method to one that will return a proxy instance
instead of a real instance. One should call \fIreset_factories()\fR during
\&\fItear_down()\fR so that the real factory method become directly accessible
once again.
.ie n .SS "set_mock_factory( $class, %results )"
.el .SS "set_mock_factory( \f(CW$class\fP, \f(CW%results\fP )"
.IX Subsection "set_mock_factory( $class, %results )"
Make the \fInew()\fR method of package \f(CW$class\fR returns proxy Lire::Test::Mock
instance. The created instances will be accessible through the
\&\fImock_instances()\fR method. Any other argument will be passed to the
\&\fIset_result()\fR method when the mock instance is created.
.ie n .SS "mock_instances( $class )"
.el .SS "mock_instances( \f(CW$class\fP )"
.IX Subsection "mock_instances( $class )"
Returns an array reference containing all the instance that were
created by the installed mock factory in \f(CW$class\fR. This method will
throw an exception if now mock factory was installed for class \f(CW$class\fR.
.SS "\fIreset_factories()\fP"
.IX Subsection "reset_factories()"
Removes all mock factories that were set up using \fIset_mock_factory()\fR.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fITest::Unit::TestCase\fR\|(3pm)
.SH "VERSION"
.IX Header "VERSION"
\&\f(CW$Id:\fR Mock.pm,v 1.5 2006/07/23 13:16:32 vanbaal Exp $
.SH "AUTHORS"
.IX Header "AUTHORS"
Francis J. Lacoste <flacoste@logreport.org>
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright (C) 2004 Stichting LogReport Foundation LogReport@LogReport.org
.PP
This file is part of Lire.
.PP
Lire is free software; you can redistribute it and/or modify
it under the terms of the \s-1GNU\s0 General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
.PP
This program is distributed in the hope that it will be useful,
but \s-1WITHOUT\s0 \s-1ANY\s0 \s-1WARRANTY\s0; without even the implied warranty of
\&\s-1MERCHANTABILITY\s0 or \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0.  See the
\&\s-1GNU\s0 General Public License for more details.
.PP
You should have received a copy of the \s-1GNU\s0 General Public License
along with this program (see \s-1COPYING\s0); if not, check with
http://www.gnu.org/copyleft/gpl.html.