test 'pass on correct input' => sub {
my $self = shift;
my $s = Finance::Bank::Bankwest->login(
pan => 'irrelevant',
access_code => 'irrelevant',
login_uri => $self->uri_for('login-then-acct-balances'),
);
isa_ok $s, 'Finance::Bank::Bankwest::Session';
};
test 'construction must fail' => sub {
my $self = shift;
dies_ok
{ Finance::Bank::Bankwest->new }
'construction must not be possible';
};
run_me;
done_testing;