use strict;
use vars qw($CARD_NUMBER_CIBC_NUREY $PASSWORD_CIBC_NUREY);

do '../config.pl';

use Test::More qw/no_plan/;

unless ( $CARD_NUMBER_CIBC_NUREY && $PASSWORD_CIBC_NUREY ) {
	print "skipping test\n";
	exit;
}

use_ok('Finance::Bank::CIBC');

ok(my $bank = Finance::Bank::CIBC->new({ card_number=> $CARD_NUMBER_CIBC_NUREY, password => $PASSWORD_CIBC_NUREY }), 
    'create object');
# functional test: end-to-end
ok(my $accounts = $bank->accounts(), 'accounts()');
ok(scalar @$accounts > 0, 'we have accounts');
ok(my $account = $accounts->[0], 'get first account');
ok(defined $account->{name}, 'account name is defined');
is($account->{name}, 'Chequing', 'verify account name');
ok(defined $account->{account_id}, 'verify account_id');
ok(my $details = $bank->details($account->{name}), "details($account->{name})");
ok(scalar @$details > 0, 'we have account details');