#!/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; }
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