X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Fbop.t;h=7b8f34e3621d75e4de960566e59b4836cd69f664;hb=09f4ef51f7d1102f9a4869c8e947f765c728a9c4;hp=c3d7769e87be09f933b9a6640a8387c632b55034;hpb=b662dd4a8274cf314504a325b55d1fc3fabf59ec;p=Business-OnlinePayment.git

diff --git a/t/bop.t b/t/bop.t
index c3d7769..7b8f34e 100644
--- 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