test environment cleanup

mojolicious · Oct 23, 2011 · d08bfb7 · d08bfb7
1 parent af5528d
commit d08bfb7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/t/mojo/ioloop.t b/t/mojo/ioloop.t
@@ -7,7 +7,7 @@ BEGIN {
   $ENV{MOJO_IOWATCHER} = 'Mojo::IOWatcher';
 }
 
-use Test::More tests => 15;
+use Test::More tests => 17;
 
 # "Marge, you being a cop makes you the man!
 #  Which makes me the woman, and I have no interest in that,
@@ -141,7 +141,11 @@ my %args = (
   }
 );
 $loop->connect(\%args);
+$ENV{MOJO_REUSE} =~ /(?:^|\,)($port\:\d)/;
+my $reuse = $1;
+ok $reuse, 'file descriptor can be reused';
 $loop->start;
+unlike $ENV{MOJO_REUSE}, qr/$reuse/, 'environment has been cleaned up';
 ok $connected, 'connected';
 ok !$error, 'no error';
 $connected = $error = undef;