projects
/
Business-OnlinePayment.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6e68659
)
- removed fraud_detect w/preCharge test, dist doesn't contain preCharge yet
author
plobbes
<plobbes>
Mon, 20 Nov 2006 05:29:14 +0000
(
05:29
+0000)
committer
plobbes
<plobbes>
Mon, 20 Nov 2006 05:29:14 +0000
(
05:29
+0000)
t/bop.t
patch
|
blob
|
history
diff --git
a/t/bop.t
b/t/bop.t
index
c5535d2
..
59b1772
100644
(file)
--- a/
t/bop.t
+++ b/
t/bop.t
@@
-1,9
+1,9
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: bop.t,v 1.
7 2006-11-20 04:54:2
4 plobbes Exp $
+# $Id: bop.t,v 1.
8 2006-11-20 05:29:1
4 plobbes Exp $
use strict;
use warnings;
use strict;
use warnings;
-use Test::More tests => 6
2
;
+use Test::More tests => 6
0
;
BEGIN { use_ok("Business::OnlinePayment") or exit; }
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
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" );
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
}
{ # content