Changed the logic in the symbol-table magic to punt if the processor

[Business-OnlinePayment.git] / t / bop.t

diff --git a/t/bop.t b/t/bop.t
index c3d7769..7b8f34e 100644 (file)
--- a/t/bop.t
+++ b/t/bop.t
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: bop.t,v 1.3 2006-08-30 18:48:40 plobbes Exp $
+# $Id: bop.t,v 1.4 2006-08-31 15:06:32 lawrence Exp $
 
 use strict;
 use warnings;
@@ -13,6 +13,7 @@ BEGIN { use_ok("Business::OnlinePayment") or exit; }
     use strict;
     use warnings;
     use base qw(Business::OnlinePayment);
+
 }
 
 my $package = "Business::OnlinePayment";
@@ -148,14 +149,9 @@ $INC{"Business/OnlinePayment/${driver}.pm"} = "testing";
     can_ok( $package, qw(submit) );
     can_ok( $obj,     qw(submit) );
 
-   # 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" );
 }
 
 {    # dump_contents