| Subject: | fix testsuite |
Hi,
when building package in buildservice (openSUSE Build Service),
testsuite fails cause of not having an interface.
Attached patch provides a fix.
hoping you agree or improve my fix :)
Kind Regards
Chris
| Subject: | IO-Socket-Multicast-t_03.patch |
diff -ruN IO-Socket-Multicast-1.11-orig/t/03_multicast.t IO-Socket-Multicast-1.11/t/03_multicast.t
--- IO-Socket-Multicast-1.11-orig/t/03_multicast.t 2009-11-03 22:42:32.000000000 +0000
+++ IO-Socket-Multicast-1.11/t/03_multicast.t 2010-04-06 12:50:15.980191043 +0000
@@ -25,10 +25,13 @@
my $INTERFACE = $IO_INTERFACE && find_a_mcast_if($s);
-isa_ok( $s, 'IO::Socket::Multicast' );
-
-ok($s->mcast_add($MCAST_ADDR), 'Add socket to Multicast Group' );
-ok($s->mcast_drop($MCAST_ADDR),'Drop Multicast Group' );
+SKIP: {
+ # run only if there is an interface
+ skip("There is no interface, so we can't check", 3) unless $INTERFACE;
+ isa_ok( $s, 'IO::Socket::Multicast' );
+ ok($s->mcast_add($MCAST_ADDR), 'Add socket to Multicast Group' );
+ ok($s->mcast_drop($MCAST_ADDR),'Drop Multicast Group' );
+}
# Some basics
SKIP: {