use
Test::Routine;
use
Test::Routine::Util;
use
Test::More;
use
Test::Exception;
use
Finance::Bank::Bankwest ();
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;