X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Dummy.git;a=blobdiff_plain;f=Dummy.pm;h=12cbbf36c15b483f80a98ab68fedbed762f54840;hp=dcd5496f96b3badf3890e3fe386cf57de1244db1;hb=HEAD;hpb=6c5f4cf291e36f8f3d54b059c27e077aa6f4869f

diff --git a/Dummy.pm b/Dummy.pm
index dcd5496..12cbbf3 100644
--- a/Dummy.pm
+++ b/Dummy.pm
@@ -9,10 +9,34 @@ use vars qw($VERSION @ISA $me);
 $VERSION = '0.01';
 $me = 'Business::OnlinePayment::Dummy';
 
+my %failure_status = (
+  1 => 'expired',
+  2 => 'nsf',
+  3 => 'stolen',
+  4 => 'pickup',
+  5 => 'blacklisted',
+  6 => 'declined',
+);
+
+
 sub submit {
     my($self) = @_;
-    $self->authorization(time . int(rand(10000)));
-    $self->is_success(1);
+    $self->order_number(time . '-' . int(rand(10000)));
+    my %c = $self->content;
+    if ( $c{'amount'} > 1.00 ) {
+      $self->is_success(1);
+      $self->authorization(int(rand(1000000)));
+    } elsif ( $c{'amount'} > 0.00 ) {
+      $self->is_success(0);
+      my $status = sprintf('%.0f', $c{'amount'} * 100);
+      if ($failure_status{$status}) {
+        $self->failure_status( $failure_status{$status} );
+        $self->error_message( uc($failure_status{$status}) );
+      }
+    } else {
+      die "Processor error";
+    }
+    return;
 }
 
 1;
@@ -21,15 +45,25 @@ __END__
 
 =head1 NAME
 
-Business::OnlinePayment::Dummy - Dummy for Business::OnlinePayment
+Business::OnlinePayment::Dummy - Test backend for Business::OnlinePayment
 
 =head1 SYNOPSIS
 
-Submit always returns success.  Makes no external connections.
+Submit returns success if the amount field is at least 1.00. If it's not,
+instead returns the following status based on the cents part:
+
+.01: expired
+.02: nsf (non-sufficient funds)
+.03: stolen
+.04: pickup
+.05: blacklisted
+.06: declined
+
+.00 throws an exception, to simulate a communication failure.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2015 Freeside Internet Services, Inc.
+Copyright 2016 Freeside Internet Services, Inc.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.