t/021-generate_token.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 use lib 't';
   7 use Business::OnlinePayment;
   8
   9 my $tr;
  10 ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' );
  11
  12 my $token;
  13 ok( $token = $tr->generate_token, "\$tr->generate_token: $token" );
  14 ok( $token =~ /^99\d{14}$/, 'Token matches expected format' );
  15 done_testing;