1package Net::Google::PicasaWeb::Test::Login; 2use Test::Able; 3use Test::More; 4 5with qw( Net::Google::PicasaWeb::Test::Role::Online ); 6 7test plan => 2, happy_login_ok => sub { 8 my $self = shift; 9 10 my $success = eval { 11 $self->service->login( 12 $Net::Google::PicasaWeb::Test::USER, 13 $Net::Google::PicasaWeb::Test::PWD, 14 ); 15 }; 16 17 ok(!$@, 'no error during login'); 18 ok($success, 'successful login'); 19}; 20 21test plan => 2, sad_login_ok => sub { 22 my $self = shift; 23 24 my $success = eval { 25 $self->service->login( 26 $Net::Google::PicasaWeb::Test::USER, 27 $Net::Google::PicasaWeb::Test::PWD.'XXX', 28 ); 29 }; 30 31 like($@, qr{^error logging in: BadAuthentication\b}, 32 'got a BadAuthentication error during login as expected'); 33 ok(!$success, 'login failed as expected'); 34}; 35 361; 37