From 511331906b11bc8f104f49b164a0a4b262099b0d Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 20 Nov 2007 03:03:08 +0000
Subject: add ARB (recurring authorizations/subscriptions) support

---
 t/lib/Business/FraudDetect/_Fake.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 t/lib/Business/FraudDetect/_Fake.pm

(limited to 't/lib/Business/FraudDetect')

diff --git a/t/lib/Business/FraudDetect/_Fake.pm b/t/lib/Business/FraudDetect/_Fake.pm
new file mode 100644
index 0000000..d09faa7
--- /dev/null
+++ b/t/lib/Business/FraudDetect/_Fake.pm
@@ -0,0 +1,23 @@
+package Business::FraudDetect::_Fake;
+
+use vars qw( @ISA $result $fraud_score );
+
+@ISA = qw ( Business::OnlinePayment );
+
+sub _glean_parameters_from_parent {
+  my ($self, $parent) = @_;
+  $result      = $parent->fraud_detect_faked_result;
+  $fraud_score = $parent->fraud_detect_faked_score;
+}
+
+sub fraud_score {
+  $fraud_score;
+}
+
+sub submit {
+  my $self = shift;
+  $result ? $self->error_message('') : $self->error_message('Planned failure.');
+  $self->is_success($result);
+}
+
+1;
-- 
cgit v1.2.1