use Test::Modern;
use t::lib::Common qw(bp_v11 skip_unless_has_secret create_test_bank);
skip_unless_has_secret;
my $bp = bp_v11;
subtest 'debit a bank' => sub {
my $bank = create_test_bank;
# Need the verify bank first to make it "debitable"
my $ver = $bp->create_bank_verification(bank_account => $bank);
$bp->confirm_bank_verification($ver, amount_1 => 1, amount_2 => 1);
my $debit = $bp->create_debit({ amount => 124 }, bank => $bank);
is $debit->{amount} => 124;
$debit = $bp->get_debit($debit->{id});
is $debit->{amount} => 124;
};
done_testing;