Changeset 9028 for trunk/IO-Socket-Multicast

Timestamp:

11/03/09 01:00:34 (2 years ago)

Author:

submersible_toaster

Message:

Add test for sending an receiving back a udp multicast packet
more banging on 03_multicast.t

Location:

trunk/IO-Socket-Multicast/t

Files:

• 03_multicast.t (modified) (4 diffs)
• 04_send.t (added)

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

@@ -9 +9 @@
 use IO::Socket::Multicast;
 
-# Simple constructor
-my $s = IO::Socket::Multicast->new;
-isa_ok( $s, 'IO::Socket::Multicast' );
+my $MCAST_ADDR = '225.0.0.1';
+my $MCAST_PORT = 9999;
+
+# I think winsock prefers the socket
+#  to be bound to _something_
+my $s = IO::Socket::Multicast->new(
+    LocalPort => $MCAST_PORT,
+    LocalAddr => $MCAST_ADDR,
+    ReuseAddr => 1,
+);
 
 # Platform compatibility
@@ -20 +27 @@
 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' );
+    
 # Some basics
 SKIP: {
     # Windows doesn't return true for stuff
-    skip("Doesn't work on Win32??", 3) if $WIN32;
-    ok($s->mcast_add('225.0.1.1'), 'Add socket to Multicast Group' );
-    ok($s->mcast_drop(inet_aton('225.0.1.1')),'Drop Multicast Group' );
-    ok( ! $s->mcast_drop('225.0.1.1'), 'Drop unsubscribed group returns false' );
+    skip("Doesn't work on Win32??", 1) if $WIN32;
+    ok( ! $s->mcast_drop($MCAST_ADDR), 'Drop unsubscribed group returns false' );
 }
 
@@ -47 +58 @@
     ok ($s->mcast_if($INTERFACE) eq 'any', 'Multicast interface set returns previous value');
     ok ($s->mcast_if eq $INTERFACE , 'Multicast interface set');
-    ok ($s->mcast_add('225.0.1.1',$INTERFACE), 'Multicast add GROUP,if');
+    ok ($s->mcast_add($MCAST_ADDR,$INTERFACE), 'Multicast add GROUP,if');
 }
 
@@ -56 +67 @@
         next unless $s->if_flags($_) & IFF_MULTICAST();
         next unless $s->if_flags($_) & IFF_RUNNING();
-        next unless $s->if_addr($_); 
+        next unless $s->if_addr($_); # Having an address seems important
         return $_;
     }