--- /dev/null
+#!/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