r52662 - /trunk/libxml-stream-perl/debian/patches/series

franck at users.alioth.debian.org franck at users.alioth.debian.org
Fri Feb 12 23:49:15 UTC 2010


Author: franck
Date: Fri Feb 12 23:49:09 2010
New Revision: 52662

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52662
Log:
* Fixed series.

Modified:
    trunk/libxml-stream-perl/debian/patches/series

Modified: trunk/libxml-stream-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-stream-perl/debian/patches/series?rev=52662&op=diff
==============================================================================
--- trunk/libxml-stream-perl/debian/patches/series (original)
+++ trunk/libxml-stream-perl/debian/patches/series Fri Feb 12 23:49:09 2010
@@ -1,74 +1,2 @@
 gssapi.patch
-From: Franck Joncourt <franck.mail at dthconnex.com>
-Subject: [PATCH] t/upstream/tests
-
-<patch description>
-
-Signed-off-by: Franck Joncourt <franck.mail at dthconnex.com>
-
----
- t/tcpip.t     |   34 ++++++++++++++++++++--------------
- t/tcpip2ssl.t |    1 +
- 2 files changed, 21 insertions(+), 14 deletions(-)
-
-diff --git a/t/tcpip.t b/t/tcpip.t
-index 9d52680..93081f0 100644
---- a/t/tcpip.t
-+++ b/t/tcpip.t
-@@ -1,22 +1,28 @@
- use lib "t/lib";
- use Test::More tests=>4;
- 
--BEGIN{ use_ok("XML::Stream","Node"); }
- 
--my $stream = new XML::Stream(style=>"node");
--ok( defined($stream), "new()" );
--isa_ok( $stream, "XML::Stream" );
-+SKIP: {
- 
--SKIP:
--{
--    my $sock = IO::Socket::INET->new(PeerAddr=>'jabber.org:5222');
--    skip "Cannot open connection (maybe a firewall?)",1 unless defined($sock);
-+    skip "No network communication allowed", 3 if ($ENV{NO_NETWORK});
-+
-+    BEGIN{ use_ok("XML::Stream","Node"); }
-+
-+    my $stream = new XML::Stream(style=>"node");
-+    ok( defined($stream), "new()" );
-+    isa_ok( $stream, "XML::Stream" );
-+
-+    SKIP:
-+    {
-+        my $sock = IO::Socket::INET->new(PeerAddr=>'jabber.org:5222');
-+        skip "Cannot open connection (maybe a firewall?)",1 unless defined($sock);
-     
--    my $status = $stream->Connect(hostname=>"jabber.org",
--                                  port=>5222,
--                                  namespace=>"jabber:client",
--                                  connectiontype=>"tcpip",
--                                  timeout=>10);
--    ok( defined($status), "Made connection");
-+        my $status = $stream->Connect(hostname=>"jabber.org",
-+                                      port=>5222,
-+                                      namespace=>"jabber:client",
-+                                      connectiontype=>"tcpip",
-+                                      timeout=>10);
-+        ok( defined($status), "Made connection");
-+    }
- }
- 
-diff --git a/t/tcpip2ssl.t b/t/tcpip2ssl.t
-index 43d4b22..8c5ff06 100644
---- a/t/tcpip2ssl.t
-+++ b/t/tcpip2ssl.t
-@@ -6,6 +6,7 @@ SKIP:
- {
-     eval("use IO::Socket::SSL 0.81;");
-     skip "IO::Socket::SSL not installed", 2 if $@;
-+    skip "No network communication allowed", 2 if ($ENV{NO_NETWORK});
- 
-     BEGIN{ use_ok( "XML::Stream","Tree", "Node" ); }
- 
--- 
-tg: (67812e7..) t/upstream/tests (depends on: master)
+t_upstream_tests.diff




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