t/bop.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 6;
   6
   7 use Business::OnlinePayment;
   8
   9 my $package = "Business::OnlinePayment";
  10 my $driver  = "PayflowPro";
  11
  12 {    # new
  13     my $obj;
  14
  15     $obj = $package->new($driver);
  16     isa_ok( $obj, $package );
  17
  18     # new (via build_subs) automatically creates convenience methods
  19     can_ok( $obj, qw(vendor partner cert_path) );
  20     can_ok( $obj, qw(order_number avs_code cvv2_code) );
  21
  22     # defaults
  23     my $server = "payflow.verisign.com";
  24
  25     is( $obj->server,    $server, "server($server)" );
  26     is( $obj->port,      "443",   "port(443)" );
  27     is( $obj->cert_path, undef,   "cert_path" );
  28 }