add ARB (recurring authorizations/subscriptions) support

2 files changed, 28 insertions, 0 deletions

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;
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
index 38b282b..0b06973 100644
--- a/t/lib/test_account.pl
+++ b/t/lib/test_account.pl
@@ -28,4 +28,9 @@ sub expiration_date {
     return sprintf("%02d/%02d", $month, $year);
 }
 
+sub tomorrow {
+    my($day, $month, $year) = (localtime(time+86400))[3..5];
+    return sprintf("%04d-%02d-%02d", $year+1900, ++$month, $day);
+}
+
 1;