3 use Test::More tests => 2;
5 { # fake test driver (with submit method)
7 package Business::OnlinePayment::MOCK;
10 use base qw(Business::OnlinePayment);
11 sub test_transaction {
13 return $self->SUPER::test_transaction(@_);
17 $INC{"Business/OnlinePayment/MOCK.pm"} = "testing";
19 my $tx = Business::OnlinePayment->new("MOCK");
21 $tx->test_transaction(1);
22 $tx->test_transaction;