From: plobbes <plobbes>
Date: Sat, 13 Jan 2007 17:20:58 +0000 (+0000)
Subject: - moved fraud_detect related tests to t/fd_precharge.t
X-Git-Tag: BUSINESS_ONLINEPAYMENT_3_00_06~14
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment.git;a=commitdiff_plain;h=1cebba47cb2a8815a712d9c5af92fe2dbed43b8a

- moved fraud_detect related tests to t/fd_precharge.t
---

diff --git a/t/bop.t b/t/bop.t
index d34ed76..cff3306 100644
--- a/t/bop.t
+++ b/t/bop.t
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 62;
+use Test::More tests => 58;
 
 BEGIN { use_ok("Business::OnlinePayment") or exit; }
 
@@ -107,22 +107,6 @@ foreach my $drv (@drivers) {
     my $obj2   = $package->new("MOCK3");
     my $s_new2 = $obj2->can("submit");
     is( $obj2->submit, "1", "MOCK3(obj2) submit returns 1" );
-
-    # fraud detection failure modes
-    my $obj   = $package->new("MOCK3");
-    my $bogus = "__BOGUS_PROCESSOR";
-    my $valid = "preCharge";
-
-    is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
-    eval { $obj->submit; };
-    like( $@, qr/^Unable to locate fraud_detection /,
-          "fraud_detect with unknown processor croaks" );
-
-    is( $obj->fraud_detect($valid), $valid, "fraud_detect set to '$valid'" );
-    eval { $obj->submit; };
-    like( $@, qr/^missing required /, "fraud_detect($valid) missing fields" );
-
-    # XXX: more test cases for preCharge needed
 }
 
 {    # content