view release on metacpan or  search on metacpan

t/fail_callback.t  view on Meta::CPAN

use strict;

use Test::More;
eval " use Test::WWW::Mechanize::Catalyst; 1 "
    or plan skip_all => 'test requires Test::WWW::Mechanize::Catalyst';

use lib 't/lib';

eval " use Test::MockObject; 1 "
    or plan skip_all => 'test requires Test::MockObject';

eval "use Catalyst::Plugin::Session::Store::FastMmap; 1"
    or plan skip_all => 'test requires Catalyst::Plugin::Session::Store::FastMmap';

my $twitter = Test::MockObject->new;
$twitter->fake_module( 'Net::Twitter' );
$twitter->fake_new( 'Net::Twitter' );
#$twitter->set_always( get_authentication_url => 'http://twit/auth' );
#$twitter->set_always( request_token => 'abc' );
#$twitter->set_always( request_token_secret => 'hush' );
#$twitter->set_always( request_access_token => 'request_access_token' );
#$twitter->set_always( access_token => 'access_token' );
#$twitter->set_always( access_token_secret => 'access_token_secret' );

0 and $twitter->mock( 'verify_credentials' => sub {
#        return shift @users;
} );


# all used by TestApp
for my $plugin ( qw/
    Authentication
    Session
    Session::State::Cookie
    / ) {
    my $module = "Catalyst::Plugin::$plugin";
    eval "use $module; 1" or plan skip_all => "test requires $module";
}

my $mech  = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'TestApp');

$mech->get_ok('/authenticate');
$mech->content_is('');

done_testing();