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