From: plobbes <plobbes>
Date: Mon, 12 Mar 2007 05:52:05 +0000 (+0000)
Subject: - tests updated for new B::OP::PayflowPro using HTTP protocol
X-Git-Tag: BUSINESS_ONLINEPAYMENT_PAYFLOWPRO_0_07_01~4
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayflowPro.git;a=commitdiff_plain;h=f24b5d34734aa1ff1aab77ae105364b3591c2d4c

- tests updated for new B::OP::PayflowPro using HTTP protocol
- cert_path() method is now deprecated
---

diff --git a/t/bop.t b/t/bop.t
index 37bd4a1..5f03ca2 100644
--- a/t/bop.t
+++ b/t/bop.t
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 11;
 
 use Business::OnlinePayment;
 
@@ -15,14 +15,37 @@ my $driver  = "PayflowPro";
     $obj = $package->new($driver);
     isa_ok( $obj, $package );
 
-    # new (via build_subs) automatically creates convenience methods
-    can_ok( $obj, qw(vendor partner cert_path) );
+    # convenience methods
+    can_ok( $obj, qw(vendor partner) );
     can_ok( $obj, qw(order_number avs_code cvv2_code) );
+    can_ok( $obj, qw(request_id param debug expdate_mmyy) );
+
+    # internal methods
+    can_ok( $obj, qw(_map_fields _revmap_fields) );
 
     # defaults
     my $server = "payflow.verisign.com";
 
-    is( $obj->server,    $server, "server($server)" );
-    is( $obj->port,      "443",   "port(443)" );
-    is( $obj->cert_path, undef,   "cert_path" );
+    is( $obj->server, $server, "server($server)" );
+    is( $obj->port, "443", "port(443)" );
+}
+
+{    # expdate
+    my $obj = $package->new($driver);
+    my @exp = (
+
+        #OFF [qw(1999.8   0899)],
+        #OFF [qw(1984-11  1184)],
+        #OFF [qw(06/7     0706)],
+        #OFF [qw(06-12    1206)],
+        [qw(12/06    1206)],
+        [qw(6/2000   0600)],
+        [qw(10/2000  1000)],
+        [qw(1/99     0199)],
+    );
+    foreach my $aref (@exp) {
+        my ( $exp, $moyr ) = @$aref;
+        my ($mmyy) = $obj->expdate_mmyy($exp);
+        is( $mmyy, $moyr, "$exp: MMYY '$mmyy' eq '$moyr' from $exp" );
+    }
 }