Implement payment profile creation

1 files changed, 15 insertions, 0 deletions

diff --git a/t/021-generate_token.t b/t/021-generate_token.t
new file mode 100755
index 0000000..14d38c1
--- /dev/null
+++ b/t/021-generate_token.t
@@ -0,0 +1,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;
\ No newline at end of file