- "use" test was moved to 00load.t

[Business-OnlinePayment.git] / t / bop.t

diff --git a/t/bop.t b/t/bop.t
index 2aaf223..ba4c6cd 100644 (file)
--- a/t/bop.t
+++ b/t/bop.t
@@ -1,11 +1,10 @@
 #!/usr/bin/perl
-# $Id: bop.t,v 1.9 2006-11-20 06:27:14 plobbes Exp $
 
 use strict;
 use warnings;
-use Test::More tests => 60;
+use Test::More tests => 57;
 
-BEGIN { use_ok("Business::OnlinePayment") or exit; }
+use Business::OnlinePayment;
 
 {    # fake test driver 1 (no submit method)
 
@@ -108,16 +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 $proc = "__BOGUS_PROCESSOR";
-
-    is( $obj->fraud_detect($proc), $proc, "fraud_detect set to '$proc'" );
-    eval { $obj->submit; };
-    is( $@, "", "fraud_detect ignores non-existant processors" );
-
-    # XXX: need more test cases for when fraud detection is enabled
 }
 
 {    # content