Changeset 11307 for trunk/IO-Socket-Multicast

Timestamp:

04/09/10 18:38:20 (22 months ago)

Author:

submersible_toaster

Message:

56319@… - further skip tests in untestable scenarios.

File:

• trunk/IO-Socket-Multicast/t/03_multicast.t (modified) (1 diff)

trunk/IO-Socket-Multicast/t/03_multicast.t

@@ -26 +26 @@
 
 
-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