r67973 - in /trunk/libbusiness-onlinepayment-ippay-perl: Changes IPPay.pm MANIFEST META.yml debian/changelog debian/copyright debian/patches/no-connectivity.patch t/card.t t/check.t t/lib/

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Thu Jan 27 22:49:18 UTC 2011


Author: periapt-guest
Date: Thu Jan 27 22:49:11 2011
New Revision: 67973

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67973
Log:
* New upstream release
* Updated copyright
* Refreshed patch

Added:
    trunk/libbusiness-onlinepayment-ippay-perl/t/lib/
      - copied from r67972, branches/upstream/libbusiness-onlinepayment-ippay-perl/current/t/lib/
Modified:
    trunk/libbusiness-onlinepayment-ippay-perl/Changes
    trunk/libbusiness-onlinepayment-ippay-perl/IPPay.pm
    trunk/libbusiness-onlinepayment-ippay-perl/MANIFEST
    trunk/libbusiness-onlinepayment-ippay-perl/META.yml
    trunk/libbusiness-onlinepayment-ippay-perl/debian/changelog
    trunk/libbusiness-onlinepayment-ippay-perl/debian/copyright
    trunk/libbusiness-onlinepayment-ippay-perl/debian/patches/no-connectivity.patch
    trunk/libbusiness-onlinepayment-ippay-perl/t/card.t
    trunk/libbusiness-onlinepayment-ippay-perl/t/check.t

Modified: trunk/libbusiness-onlinepayment-ippay-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/Changes?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/Changes (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/Changes Thu Jan 27 22:49:11 2011
@@ -1,4 +1,7 @@
 Revision history for Perl extension Business::OnlinePayment::IPPay.
+
+0.06  Wed Jan 26 13:15:21 PST 2011
+        - fix january bug in tests
 
 0.05  Mon Jul 19 10:19:34 EDT 2010
         - add introspection info used in Business::OnlinePayment 3.01+

Modified: trunk/libbusiness-onlinepayment-ippay-perl/IPPay.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/IPPay.pm?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/IPPay.pm (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/IPPay.pm Thu Jan 27 22:49:11 2011
@@ -11,7 +11,7 @@
 use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.05';
+$VERSION = '0.06';
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;

Modified: trunk/libbusiness-onlinepayment-ippay-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/MANIFEST?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/MANIFEST (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/MANIFEST Thu Jan 27 22:49:11 2011
@@ -8,4 +8,5 @@
 t/check.t
 t/bop.t
 t/introspection.t
+t/lib/test_account.pl
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libbusiness-onlinepayment-ippay-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/META.yml?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/META.yml (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/META.yml Thu Jan 27 22:49:11 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Business-OnlinePayment-IPPay
-version:            0.05
+version:            0.06
 abstract:           ~
 author:
     - Jeff Finucane <ippay at weasellips.com>

Modified: trunk/libbusiness-onlinepayment-ippay-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/debian/changelog?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/debian/changelog (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/debian/changelog Thu Jan 27 22:49:11 2011
@@ -1,3 +1,11 @@
+libbusiness-onlinepayment-ippay-perl (0.06-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Updated copyright
+  * Refreshed patch
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Thu, 27 Jan 2011 22:45:45 +0000
+
 libbusiness-onlinepayment-ippay-perl (0.05-1) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libbusiness-onlinepayment-ippay-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/debian/copyright?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/debian/copyright (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/debian/copyright Thu Jan 27 22:49:11 2011
@@ -11,8 +11,9 @@
 License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2008, 2009, 2010, Ivan Kohler <ivan-debian at 420.am>
- 2010, Nicholas Bamber <nicholas at periapt.co.uk>
+Copyright:
+ 2008-2010, Ivan Kohler <ivan-debian at 420.am>
+ 2010-2011, Nicholas Bamber <nicholas at periapt.co.uk>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/libbusiness-onlinepayment-ippay-perl/debian/patches/no-connectivity.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/debian/patches/no-connectivity.patch?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/debian/patches/no-connectivity.patch (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/debian/patches/no-connectivity.patch Thu Jan 27 22:49:11 2011
@@ -2,23 +2,17 @@
 Author: Ivan Kohler <ivan-debian at 420.am>
 Forwarded: not-needed
 Reviewed-By: Nicholas Bamber <nicholas at periapt.co.uk>
-Last-Update: 2010-10-28
+Last-Update: 2011-01-227
 --- a/t/card.t
 +++ b/t/card.t
-@@ -1,11 +1,11 @@
+@@ -1,6 +1,6 @@
  #!/usr/bin/perl -w
  
 -use Test::More;
 +use Test::More skip_all => 'Skip network tests in Debian build';
+ require "t/lib/test_account.pl";
  
- my($login, $password, @opts) = ('TESTMERCHANT', '',
-                                 'default_Origin' => 'RECURRING' );
- plan tests => 43;
--  
-+
- use_ok 'Business::OnlinePayment';
- 
- my %content = (
+ my($login, $password, %opt) = test_account_or_skip('card');
 --- a/t/check.t
 +++ b/t/check.t
 @@ -1,6 +1,6 @@
@@ -26,6 +20,6 @@
  
 -use Test::More;
 +use Test::More skip_all => 'Skip network tests in Debian build';
+ require "t/lib/test_account.pl";
  
- my($login, $password, %opt) = ('TESTMERCHANT', '', 'Origin' => 'RECURRING' );
- plan tests => 16;
+ my($login, $password, %opt) = test_account_or_skip('check');

Modified: trunk/libbusiness-onlinepayment-ippay-perl/t/card.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/t/card.t?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/t/card.t (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/t/card.t Thu Jan 27 22:49:11 2011
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
 
 use Test::More;
+require "t/lib/test_account.pl";
 
-my($login, $password, @opts) = ('TESTMERCHANT', '',
-                                'default_Origin' => 'RECURRING' );
+my($login, $password, %opt) = test_account_or_skip('card');
 plan tests => 43;
   
 use_ok 'Business::OnlinePayment';
@@ -35,7 +35,7 @@
 
 # valid card number test
 {
-  my $tx = Business::OnlinePayment->new("IPPay", @opts);
+  my $tx = Business::OnlinePayment->new("IPPay", %opt);
   $tx->content(%content);
   tx_check(
     $tx,
@@ -55,7 +55,7 @@
 
 # invalid card number test
 {
-  my $tx = Business::OnlinePayment->new("IPPay", @opts);
+  my $tx = Business::OnlinePayment->new("IPPay", %opt);
   $tx->content(%content, card_number => "4111111111111112" );
   tx_check(
     $tx,
@@ -71,7 +71,7 @@
 
 # authorization only test
 {
-  my $tx = Business::OnlinePayment->new("IPPay", @opts);
+  my $tx = Business::OnlinePayment->new("IPPay", %opt);
   $tx->content(%content, action => 'authorization only',  amount => '3.00' );
   tx_check(
     $tx,
@@ -91,7 +91,7 @@
 
 # post authorization test
 SKIP: {
-  my $tx = new Business::OnlinePayment( "IPPay", %opts );
+  my $tx = new Business::OnlinePayment( "IPPay", %opt );
   $tx->content( %content, 'action'       => "post authorization", 
                           'amount'       => $postable_amount,    # not required
                           'order_number' => $postable,
@@ -110,7 +110,7 @@
 
 # void test
 SKIP: {
-  my $tx = new Business::OnlinePayment( "IPPay", %opts );
+  my $tx = new Business::OnlinePayment( "IPPay", %opt );
   $tx->content( %content, 'action' => "Void",
                           'order_number' => $voidable,
                           'authorization' => $voidable_auth,
@@ -129,7 +129,7 @@
 
 # credit test
 SKIP: {
-  my $tx = new Business::OnlinePayment( "IPPay", %opts );
+  my $tx = new Business::OnlinePayment( "IPPay", %opt );
   $tx->content( %content, 'action' => "credit");
   tx_check(
     $tx,
@@ -178,10 +178,3 @@
     );
 }
 
-sub expiration_date {
-    my($month, $year) = (localtime)[4,5];
-    $year++;       # So we expire next year.
-    $year %= 100;  # y2k?  What's that?
-
-    return sprintf("%02d/%02d", $month, $year);
-}

Modified: trunk/libbusiness-onlinepayment-ippay-perl/t/check.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-ippay-perl/t/check.t?rev=67973&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-ippay-perl/t/check.t (original)
+++ trunk/libbusiness-onlinepayment-ippay-perl/t/check.t Thu Jan 27 22:49:11 2011
@@ -1,8 +1,9 @@
 #!/usr/bin/perl -w
 
 use Test::More;
+require "t/lib/test_account.pl";
 
-my($login, $password, %opt) = ('TESTMERCHANT', '', 'Origin' => 'RECURRING' );
+my($login, $password, %opt) = test_account_or_skip('check');
 plan tests => 16;
 
 use_ok 'Business::OnlinePayment';




More information about the Pkg-perl-cvs-commits mailing list