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