1package Net::Google::PicasaWeb::Test::Login; 2use Test::Able; 3use Test::More; 4 5with qw( Net::Google::PicasaWeb::Test::Role::Offline ); 6 7test plan => 1, happy_login_ok => sub { 8 my $self = shift; 9 my $service = $self->service; 10 11 ok($service->login('username', 'password'), 'login success'); 12}; 13 14test plan => 3, sad_login_ok => sub { 15 my $self = shift; 16 my $service = $self->service; 17 18 $self->response->set_always(is_success => ''); 19 $self->response->set_always( 20 content => 'error=Testing' 21 ); 22 23 eval { 24 $service->login('username', 'password'); 25 }; 26 27 ok($@, 'got an error on bad response'); 28 like($@, qr/^error logging in: /, 'error starts correctly'); 29}; 30 311; 32