[bop-devel] Re: Business-OnlinePayment/t bop.t,1.7,1.8

Ivan Kohler ivan at 420.am
Thu Nov 23 21:53:34 PST 2006


On Mon, Nov 20, 2006 at 12:42:42AM -0500, Phil Lobbes wrote:
> If I do a make dist that module failes to be included in the
> distribution.  I didn't investigate, but if this is supposed to be
> standard we'll have to figure out why this isn't getting included.

I fixed this (just had to include the FraudDetect directory in 
Makefile.PL PMLIBDIRS) and reverted the tests back.

-- 
_ivan


> Ivan Kohler <ivan at 420.am> wrote:
> 
> > I don't understand.  The distribution does contain 
> > Business::FraudDetect::preCharge.
> > 
> > -- 
> > _ivan
> > 
> > 
> > On Mon, Nov 20, 2006 at 05:29:16AM +0000, Phil Lobbes wrote:
> > > Update of /home/cvs/cvsroot/Business-OnlinePayment/t
> > > In directory wavetail:/tmp/cvs-serv19963/t
> > > 
> > > Modified Files:
> > > 	bop.t 
> > > Log Message:
> > > - removed fraud_detect w/preCharge test, dist doesn't contain preCharge yet
> > > 
> > > 
> > > Index: bop.t
> > > ===================================================================
> > > RCS file: /home/cvs/cvsroot/Business-OnlinePayment/t/bop.t,v
> > > retrieving revision 1.7
> > > retrieving revision 1.8
> > > diff -u -d -r1.7 -r1.8
> > > --- bop.t	20 Nov 2006 04:54:24 -0000	1.7
> > > +++ bop.t	20 Nov 2006 05:29:14 -0000	1.8
> > > @@ -3,7 +3,7 @@
> > >  
> > >  use strict;
> > >  use warnings;
> > > -use Test::More tests => 62;
> > > +use Test::More tests => 60;
> > >  
> > >  BEGIN { use_ok("Business::OnlinePayment") or exit; }
> > >  
> > > @@ -114,19 +114,14 @@
> > >      is( $obj2->submit, "1", "MOCK3(obj2) submit returns 1" );
> > >  
> > >      # fraud detection failure modes
> > > -    my $obj   = $package->new("MOCK3");
> > > -    my $bogus = "__BOGUS_PROCESSOR";
> > > -    my $valid = "preCharge";
> > > +    my $obj  = $package->new("MOCK3");
> > > +    my $proc = "__BOGUS_PROCESSOR";
> > >  
> > > -    is( $obj->fraud_detect($bogus), $bogus, "fraud_detect set to '$bogus'" );
> > > +    is( $obj->fraud_detect($proc), $proc, "fraud_detect set to '$proc'" );
> > >      eval { $obj->submit; };
> > >      is( $@, "", "fraud_detect ignores non-existant processors" );
> > >  
> > > -    is( $obj->fraud_detect($valid), $valid, "fraud_detect set to '$valid'" );
> > > -    eval { $obj->submit; };
> > > -    like( $@, qr/^missing required /, "fraud_detect($valid) missing fields" );
> > > -
> > > -    # XXX: more test cases for preCharge needed
> > > +    # XXX: need more test cases for when fraud detection is enabled
> > >  }
> > >  
> > >  {    # content
> > > 
> > 


More information about the bop-devel mailing list