--- EV/t/02_once.t	2007/11/23 13:08:57	1.2
+++ EV/t/02_once.t	2007/11/28 12:14:26	1.4
@@ -2,6 +2,7 @@
 
 no warnings;
 use strict;
+use Socket;
 
 use EV;
 
@@ -11,8 +12,10 @@
    };
 }
 
-EV::once 1, EV::WRITE, 0.5, sub {
-   print $_[0] == EV::WRITE ? "" : "not ", "ok 2\n";
+socketpair my $s1, my $s2, AF_UNIX, SOCK_STREAM, PF_UNSPEC;
+
+EV::once $s1, EV::WRITE, 0.5, sub {
+   print $_[0] & EV::WRITE ? "" : "not ", "ok 2\n";
 };
 
 print "ok 1\n";