use Test::Modern;
use t::lib::Common qw(bp_v11 skip_unless_has_secret);

skip_unless_has_secret;

my $bp = bp_v11;

my $card_data = {
    number           => "5105105105105100",
    expiration_month => 12,
    expiration_year  => 2020,
};

subtest 'create a card' => sub {
    my $card1 = $bp->create_card( $card_data );
    ok $card1->{id} or diag explain $card1;

    my $card2 = $bp->get_card( $card1->{id} );
    is $card2->{id} => $card1->{id}, 'got correct card';
};

subtest 'add card to customer' => sub {
    my $cust = $bp->create_customer({ email => 'foo@bar.com' });
    my $card = $bp->create_card( $card_data );
    $card = $bp->add_card($card, customer => $cust);
    is $card->{links}{customer} => $cust->{id}
        or diag explain $card;
};

done_testing;