#!/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 => 62;
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 $proc = "__BOGUS_PROCESSOR";
+ my $obj = $package->new("MOCK3");
+ my $bogus = "__BOGUS_PROCESSOR";
+ my $valid = "preCharge";
- is( $obj->fraud_detect($proc), $proc, "fraud_detect set to '$proc'" );
+ is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
eval { $obj->submit; };
is( $@, "", "fraud_detect ignores non-existant processors" );
- # XXX: need more test cases for when fraud detection is enabled
+ 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