X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment.git;a=blobdiff_plain;f=t%2Fbop.t;h=d34ed7600a70c5995c73cb87965e618d718b2ec0;hp=8eb762d655de63ca3a75146a30bee57e03b59fc9;hb=d5e830c6afd72c3cfd0a4d8b9a4a0a7f181ea6dd;hpb=3785f360382e1a9d906e61ddaa9d2ff4b0881704

diff --git a/t/bop.t b/t/bop.t
index 8eb762d..d34ed76 100644
--- a/t/bop.t
+++ b/t/bop.t
@@ -115,7 +115,8 @@ foreach my $drv (@drivers) {
 
     is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
     eval { $obj->submit; };
-    is( $@, "", "fraud_detect ignores non-existant processors" );
+    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; };