- # XXX
- # eval { $obj->submit; };
- # like( $@, qr/^Processor subclass did not /, "missing submit() croaks" );
- #Tests turned off due to bug:
- # Deep recursion on anonymous subroutine
- # at .../Business/OnlinePayment.pm line 110.
- # Deep recursion on subroutine "Business::OnlinePayment::_pre_submit"
- # at .../Business/OnlinePayment.pm line 74.
+ eval { $obj->submit; };
+ like( $@, qr/^Processor subclass did not /, "missing submit() croaks" );
+ is( $obj->can("submit"), $package->can("submit"), "submit unchanged" );
+
+ my $mock2 = $package->new("MOCK2");
+ can_ok( $mock2, qw(submit) );
+
+ isnt( $mock2->can("submit"), $package->can("submit"), "submit changed" );
+ eval { $mock2->submit; };
+ like( $@, qr/^in processor submit/, "processor submit() is called" );