1 files changed, 0 insertions, 117 deletions
diff --git a/dev-perl/Net-ARP/files/Net-ARP-1.0.9-tests.patch b/dev-perl/Net-ARP/files/Net-ARP-1.0.9-tests.patch
deleted file mode 100644
index 3cd799a629b7..000000000000
--- a/dev-perl/Net-ARP/files/Net-ARP-1.0.9-tests.patch
+++ /dev/null
@@ -1,117 +0,0 @@
-From 38c823ef25d78205e24314233ae7a503967b53e9 Mon Sep 17 00:00:00 2001
-From: Kent Fredric <kentnl@gentoo.org>
-Date: Wed, 13 Dec 2017 22:22:20 +1300
-Subject: Guard tests that require network device names and root via ENV
-
----
- Makefile.PL     |  9 ---------
- t/arp_lookup.t  | 10 ++++++++--
- t/send_packet.t | 13 +++++++++++--
- test.pl         | 23 ++++++++---------------
- 4 files changed, 27 insertions(+), 28 deletions(-)
-
-diff --git a/Makefile.PL b/Makefile.PL
-index e1a4ee7..fbfe0b0 100755
---- a/Makefile.PL
-+++ b/Makefile.PL
-@@ -18,15 +18,6 @@
- use ExtUtils::MakeMaker;
- use Config;
- 
--BEGIN {
--      eval { require Net::Pcap };
--
--      if($@)
--      {
--          print "Module Net::Pcap is required for make test!\n";
--      }
--}
--
- if($Config{'osname'} =~ /linux/i)
- {
-     $flags = "-DLINUX";
-diff --git a/t/arp_lookup.t b/t/arp_lookup.t
-index 4cf9626..df68c90 100644
---- a/t/arp_lookup.t
-+++ b/t/arp_lookup.t
-@@ -13,8 +13,14 @@ ok( $mac eq "unknown", "unkown mac on strange dev value -> $mac" );
- $mac = Net::ARP::arp_lookup("$fu","127.0.0.1");
- ok( $mac eq "unknown", "unkown mac on strange dev value 2 -> $mac" );
- 
--$mac = Net::ARP::arp_lookup("eth0","this_is_not_an_ip_address");
--ok( $mac eq "unknown", "unkown mac on strange ip value -> $mac" );
-+SKIP: {
-+
-+  skip "TEST_ARP_IF unset", 1 unless exists $ENV{TEST_ARP_IF};
-+
-+  $mac = Net::ARP::arp_lookup($ENV{TEST_ARP_IF},"this_is_not_an_ip_address");
-+  ok( $mac eq "unknown", "unkown mac on strange ip value -> $mac" );
-+
-+}
- 
- #Net::ARP::arp_lookup("eth0","192.168.1.1","fu");
- #ok( $mac eq "unknown", "unkown mac on strange mac value" );
-diff --git a/t/send_packet.t b/t/send_packet.t
-index 1f95f4f..3b4b998 100644
---- a/t/send_packet.t
-+++ b/t/send_packet.t
-@@ -5,9 +5,18 @@
- # Last update: 22.06.2013
- 
- use Net::ARP;
--use Test::More qw( no_plan );
-+use Test::More;
-+BEGIN {
-+  if ( $> != 0 )  {
-+      plan skip_all => "This test must be run as root";
-+  }
-+  if ( not exists $ENV{TEST_ARP_IF} ) {
-+    plan skip_all => "TEST_ARP_IF not specified";
-+  }
-+  $dev = $ENV{TEST_ARP_IF};
-+  plan qw/no_plan/;
-+}
- 
--$dev="lo";
- print "Using device $dev to test send_packet()\n";
- 
- $ret = Net::ARP::send_packet("strange_dev",   # network interface
-diff --git a/test.pl b/test.pl
-index 27af515..c2e4cc2 100755
---- a/test.pl
-+++ b/test.pl
-@@ -19,23 +19,16 @@
- use ExtUtils::testlib;
- use Net::ARP;
- 
--BEGIN
--{
--    eval{ require Net::Pcap; };
--              
--    if($@ =~ /^Can\'t\slocate/)
--    {
--        $dev = "eth0";
--    }
--    else
--    {
--   	import Net::Pcap;
--        $dev = Net::Pcap::lookupdev(\$errbuf);
--    }
-+if ( $> != 0 ) {
-+  print "SKIPPED: test must be run as root\n";
-+  exit 0;
- }
--
-+if ( not exists $ENV{TEST_ARP_IF} ) {
-+  print "SKIPPED: TEST_ARP_IF unset\n";
-+  exit 0;
-+}
-+$dev = $ENV{TEST_ARP_IF};
- print "Sending ARP reply packet via dev $dev... ";
--
- $ret = Net::ARP::send_packet($dev,                           # network interface
- 		      '127.0.0.1',                    # source ip
- 	              '127.0.0.1',                    # destination ip
--- 
-2.14.3
-