t/021-generate_token.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use lib 't';
use Business::OnlinePayment;

my $tr;
ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' );

my $token;
ok( $token = $tr->generate_token, "\$tr->generate_token: $token" );
ok( $token =~ /^99\d{14}$/, 'Token matches expected format' );
done_testing;