Test::MockObject

Sometimes, you need to replace an entire module.

• "Mock Objects" act like objects
• you just control them from the tests

use Test::MockObject;
my $mock_cgi = Test::MockObject->new();
$mock_cgi->set_series( 'param', qw( param1 param2 param3 ) );

is( get_param( $mock_cgi ), 'param1', 'get_param() should fetch first parameter' );

• See http://www.perl.com/pub/a/2002/07/10/tmo.html for more

Prev | toc | Next