From 24c86c6b9136ad878a118d57fc9b876eee3672f8 Mon Sep 17 00:00:00 2001
From: Mitch Jackson <mitch@freeside.biz>
Date: Sun, 21 Apr 2019 21:58:05 -0400
Subject: Implement payment profile creation

---
 t/021-generate_token.t | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 t/021-generate_token.t

(limited to 't/021-generate_token.t')

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
-- 
cgit v1.2.1