1 files changed, 23 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;