projects
/
Business-OnlinePayment.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- minor cleanup of test drivers
[Business-OnlinePayment.git]
/
t
/
bop.t
diff --git
a/t/bop.t
b/t/bop.t
index
59b1772
..
2aaf223
100644
(file)
--- a/
t/bop.t
+++ b/
t/bop.t
@@
-1,5
+1,5
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: bop.t,v 1.
8 2006-11-20 05:29
:14 plobbes Exp $
+# $Id: bop.t,v 1.
9 2006-11-20 06:27
:14 plobbes Exp $
use strict;
use warnings;
use strict;
use warnings;
@@
-18,19
+18,15
@@
BEGIN { use_ok("Business::OnlinePayment") or exit; }
{ # fake test driver 2 (with submit method that dies)
package Business::OnlinePayment::MOCK2;
{ # fake test driver 2 (with submit method that dies)
package Business::OnlinePayment::MOCK2;
- use strict;
- use warnings;
- use base qw(Business::OnlinePayment);
- sub submit { die("in processor submit\n"); }
+ use base qw(Business::OnlinePayment::MOCK1);
+ sub submit { my $self = shift; die("in processor submit\n"); }
}
{ # fake test driver 3 (with submit method)
package Business::OnlinePayment::MOCK3;
}
{ # fake test driver 3 (with submit method)
package Business::OnlinePayment::MOCK3;
- use strict;
- use warnings;
- use base qw(Business::OnlinePayment);
- sub submit { return (1); }
+ use base qw(Business::OnlinePayment::MOCK1);
+ sub submit { my $self = shift; return 1; }
}
my $package = "Business::OnlinePayment";
}
my $package = "Business::OnlinePayment";
@@
-197,7
+193,7
@@
foreach my $drv (@drivers) {
eval { $obj->submit; };
like( $@, qr/^Processor subclass did not /, "missing submit() croaks" );
eval { $obj->submit; };
like( $@, qr/^Processor subclass did not /, "missing submit() croaks" );
- is
( $obj->can("submit"), $package->can("submit"), "submit un
changed" );
+ is
nt( $obj->can("submit"), $package->can("submit"), "submit
changed" );
my $mock2 = $package->new("MOCK2");
can_ok( $mock2, qw(submit) );
my $mock2 = $package->new("MOCK2");
can_ok( $mock2, qw(submit) );