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