From d7e53fde1ef2deb01c1ba26f59bc79ecaf0391cb Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Mon, 20 Nov 2006 05:29:14 +0000
Subject: [PATCH 1/1] - removed fraud_detect w/preCharge test, dist doesn't
 contain preCharge yet

---
 t/bop.t | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/t/bop.t b/t/bop.t
index c5535d2..59b1772 100644
--- a/t/bop.t
+++ b/t/bop.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id: bop.t,v 1.7 2006-11-20 04:54:24 plobbes Exp $
+# $Id: bop.t,v 1.8 2006-11-20 05:29:14 plobbes Exp $
 
 use strict;
 use warnings;
-use Test::More tests => 62;
+use Test::More tests => 60;
 
 BEGIN { use_ok("Business::OnlinePayment") or exit; }
 
@@ -114,19 +114,14 @@ foreach my $drv (@drivers) {
     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";
+    my $obj  = $package->new("MOCK3");
+    my $proc = "__BOGUS_PROCESSOR";
 
-    is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
+    is( $obj->fraud_detect($proc), $proc, "fraud_detect set to '$proc'" );
     eval { $obj->submit; };
     is( $@, "", "fraud_detect ignores non-existant processors" );
 
-    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
+    # XXX: need more test cases for when fraud detection is enabled
 }
 
 {    # content
-- 
2.11.0