[libnet-mac-vendor-perl] 04/09: Update no-network-tests.patch.
gregor herrmann
gregoa at debian.org
Sun Nov 8 18:28:23 UTC 2015
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libnet-mac-vendor-perl.
commit 7142799715421d493c77ffe6a03360afad3ab1ea
Author: gregor herrmann <gregoa at debian.org>
Date: Sun Nov 8 19:18:59 2015 +0100
Update no-network-tests.patch.
The test suite was restructured a bit.
---
debian/patches/no-network-tests.patch | 144 +++++++++++++++++++++-------------
1 file changed, 91 insertions(+), 53 deletions(-)
diff --git a/debian/patches/no-network-tests.patch b/debian/patches/no-network-tests.patch
index 28c7c6e..8e9e18f 100644
--- a/debian/patches/no-network-tests.patch
+++ b/debian/patches/no-network-tests.patch
@@ -6,53 +6,61 @@ Last-Update: 2015-07-09
--- a/t/fetch_oui_from_ieee.t
+++ b/t/fetch_oui_from_ieee.t
-@@ -5,13 +5,17 @@
- use_ok( $class );
- ok( defined &{"${class}::fetch_oui_from_ieee"}, "&fetch_oui_from_ieee is defined" );
+@@ -9,6 +9,8 @@
+ };
--my $array = Net::MAC::Vendor::fetch_oui_from_ieee( '00:01:02' );
--isa_ok( $array, ref [], "Got back array reference" );
-+SKIP: {
-+ skip 'Tests require internet', 3 if $ENV{NO_NETWORK};
-
--my $html = join "\n", @$array;
-+ my $array = Net::MAC::Vendor::fetch_oui_from_ieee( '00:01:02' );
-+ isa_ok( $array, ref [], "Got back array reference" );
+ subtest fetch => sub {
++ SKIP: {
++ skip 'Tests require internet', 3 if $ENV{NO_NETWORK};
+ my $array = Net::MAC::Vendor::fetch_oui_from_ieee( '00:01:02' );
+ isa_ok( $array, ref [], "Got back array reference" );
+ # diag( "Array from fetch_oui_from_ieee is " . Dumper( $array ) );
+@@ -18,6 +20,7 @@
+ like( $html, qr/3COM CORPORATION/, "Fetched 3M's OUI entry" );
--like( $html, qr/3COM CORPORATION/, "Fetched 3M's OUI entry" );
-+ my $html = join "\n", @$array;
-
--unlike( $html, qr/PRIVATE/, "Still see PRIVATE in 3M entry" );
-+ like( $html, qr/3COM CORPORATION/, "Fetched 3M's OUI entry" );
-+
-+ unlike( $html, qr/PRIVATE/, "Still see PRIVATE in 3M entry" );
-+}
+ unlike( $html, qr/PRIVATE/, "Still see PRIVATE in 3M entry" );
++ }
+ };
done_testing();
--- a/t/fetch_oui.t
+++ b/t/fetch_oui.t
-@@ -13,15 +13,19 @@
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
--my $connected = head( 'https://standards.ieee.org/regauth/oui/oui.txt' );
-+SKIP: {
-+ skip 'Tests require internet', 1 if $ENV{NO_NETWORK};
-+
-+ my $connected = head( 'https://standards.ieee.org/regauth/oui/oui.txt' );
+@@ -18,8 +18,11 @@
+ my $connected = 0;
+ subtest connected => sub {
+ my $tx = $class->ua->head( Net::MAC::Vendor::oui_url() );
++ SKIP: {
++ skip 'Tests require internet', 1 if $ENV{NO_NETWORK};
+ $connected = $tx->success;
+ ok( $connected, "Am connected to network [$connected]" );
++ }
+ };
+
+ my @ouis = qw(
+@@ -36,6 +39,7 @@
--ok( defined $connected, "Am connected to network" );
-+ ok( defined $connected, "Am connected to network" );
-+}
+ subtest fetch_apple => sub {
+ SKIP: {
++ skip 'Tests require internet', 4 if $ENV{NO_NETWORK};
+ skip "Can't connect to the IEEE web site", 4 unless $connected;
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
- # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
- SKIP: {
--skip "Can't connect to the IEEE web site", 4 unless $connected;
-+skip "Can't connect to the IEEE web site", 4 unless ($connected or $ENV{NO_NETWORK});
+ my $parsed = Net::MAC::Vendor::fetch_oui( $ouis[0] );
+@@ -47,6 +51,8 @@
+ };
+
+ subtest fetch_all => sub {
++ SKIP: {
++ skip 'Tests require internet', 4 if $ENV{NO_NETWORK};
+ foreach my $oui ( @ouis ) {
+ my $parsed = Net::MAC::Vendor::fetch_oui( $oui );
+ isa_ok( $parsed, ref [] );
+@@ -54,6 +60,7 @@
+ is( $parsed->[$i], $lines->[$i], "Line $i matches for $oui" );
+ }
+ }
++ }
+ };
- Net::MAC::Vendor::fetch_oui( $oui[0] );
--- a/t/rt79369.t
+++ b/t/rt79369.t
@@ -64,6 +72,19 @@ Last-Update: 2015-07-09
my $array = Net::MAC::Vendor::lookup( $private_mac );
skip 'Could not fetch MAC data', 2 unless defined $array;
+@@ -26,9 +27,12 @@
+
+ ok( Net::MAC::Vendor::load_cache( $file ), 'Cache is loaded' );
+
++ SKIP: {
++ skip 'Tests require internet', 2 if $ENV{NO_NETWORK};
+ my $array = Net::MAC::Vendor::lookup( $private_mac );
+ isa_ok( $array, ref [], "Got back array reference" );
+ is( uc $array->[0], 'PRIVATE', 'This is a private entry' );
++ }
+ };
+
+ done_testing();
--- a/t/run.t
+++ b/t/run.t
@@ -6,7 +6,9 @@
@@ -77,22 +98,39 @@ Last-Update: 2015-07-09
local *STDOUT;
open STDOUT, ">", \ my $output;
+diff --git a/t/load_cache.t b/t/load_cache.t
+index 072539d..d7690bb 100644
--- a/t/load_cache.t
+++ b/t/load_cache.t
-@@ -13,6 +13,9 @@
- is( $rc, undef, "load_cache returns undef for bad source [not_there.txt]");
- }
+@@ -25,12 +25,15 @@ subtest load_cache_default => sub {
+ my ($fh, $filename) = tempfile( UNLINK => 1 );
+
+ subtest load_cache_default_write => sub {
++ SKIP: {
++ skip 'Tests require internet', 2 if $ENV{NO_NETWORK};
+ local *STDERR;
+ open STDERR, ">:utf8", \my $output;
+ my $rc = Net::MAC::Vendor::load_cache(undef, $filename);
+ ok( $rc, "load_cache returns true for default source with write");
+
+ ok ( -s $filename, "load_cache results in file with size > 0");
++ }
+ };
+
+ subtest created_source => sub {
+diff --git a/t/oui.t b/t/oui.t
+index 94c742f..4e43160 100644
+--- a/t/oui.t
++++ b/t/oui.t
+@@ -20,8 +20,11 @@ subtest oui_url => sub {
+ };
+
+ subtest fetch_url => sub {
++ SKIP: {
++ skip 'Tests require internet', 1 if $ENV{NO_NETWORK};
+ my $tx = $class->ua->head( $class->oui_url );
+ ok( $tx->success, "Fetching URL was a success" );
++ }
+ };
-+SKIP: {
-+skip 'Tests require internet', 3 if $ENV{NO_NETWORK};
-+
- {
- local *STDERR;
- open STDERR, ">", \my $output;
-@@ -37,4 +40,6 @@
- ok( $rc, "load_cache returns true read from created source");
- }
-
-+} # end SKIP
-+
done_testing();
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-mac-vendor-perl.git
More information about the Pkg-perl-cvs-commits
mailing list