[lucy-commits] svn commit: r1140287 - in /incubator/lucy/trunk/perl/t: 025-debug.t 106-locking.t 308-simple.t 510-remote_search.t

[ma...@apache.org]

Author: marvin
Date: Mon Jun 27 19:25:27 2011
New Revision: 1140287

URL: http://svn.apache.org/viewvc?rev=1140287&view=rev
Log:
LUCY-164 Skip tests which fork() under Cygwin

Tests which fork() are just as problematic under Cygwin as under other Windows
build enviroments, so detect Cygwin and skip such tests.

Modified:
    incubator/lucy/trunk/perl/t/025-debug.t
    incubator/lucy/trunk/perl/t/106-locking.t
    incubator/lucy/trunk/perl/t/308-simple.t
    incubator/lucy/trunk/perl/t/510-remote_search.t

Modified: incubator/lucy/trunk/perl/t/025-debug.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/025-debug.t?rev=1140287&r1=1140286&r2=1140287&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/025-debug.t (original)
+++ incubator/lucy/trunk/perl/t/025-debug.t Mon Jun 27 19:25:27 2011
@@ -53,7 +53,8 @@ ASSERT(1);
 pass("ASSERT(true) didn't die");
 
 SKIP: {
-    skip( "Windows fork not supported by Lucy", 3 ) if $^O =~ /mswin/i;
+    skip( "Windows fork not supported by Lucy", 3 )
+    	if $^O =~ /(mswin|cygwin)/i;
 
     my $stderr_out = capture_debug( 'Lucy.xs', 'Borax' );
     like( $stderr_out, qr/Borax/, "DEBUG - file name" );

Modified: incubator/lucy/trunk/perl/t/106-locking.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/106-locking.t?rev=1140287&r1=1140286&r2=1140287&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/106-locking.t (original)
+++ incubator/lucy/trunk/perl/t/106-locking.t Mon Jun 27 19:25:27 2011
@@ -23,7 +23,7 @@ use File::Spec::Functions qw( catfile );
 use Lucy::Test::TestUtils qw( init_test_index_loc );
 
 BEGIN {
-    if ( $^O =~ /mswin/i ) {
+    if ( $^O =~ /(mswin|cygwin)/i ) {
         plan( 'skip_all', "fork on Windows not supported by Lucy" );
     }
     else {

Modified: incubator/lucy/trunk/perl/t/308-simple.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/308-simple.t?rev=1140287&r1=1140286&r2=1140287&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/308-simple.t (original)
+++ incubator/lucy/trunk/perl/t/308-simple.t Mon Jun 27 19:25:27 2011
@@ -51,7 +51,8 @@ is( $lucy->search( query => 'cream' ), 4
     "search uses correct PolyAnalyzer" );
 
 SKIP: {
-    skip( "fork on Windows not supported by Lucy", 1 ) if $^O =~ /mswin/i;
+    skip( "fork on Windows not supported by Lucy", 1 )
+    	if $^O =~ /(mswin|cygwin)/i;
 
     # We need another one:
     my $test_index_loc = init_test_index_loc();

Modified: incubator/lucy/trunk/perl/t/510-remote_search.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/510-remote_search.t?rev=1140287&r1=1140286&r2=1140287&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/510-remote_search.t (original)
+++ incubator/lucy/trunk/perl/t/510-remote_search.t Mon Jun 27 19:25:27 2011
@@ -22,7 +22,7 @@ use IO::Socket::INET;
 
 my $PORT_NUM = 7890;
 BEGIN {
-    if ( $^O =~ /mswin/i ) {
+    if ( $^O =~ /(mswin|cygwin)/i ) {
         plan( 'skip_all', "fork on Windows not supported by Lucy" );
     }
     elsif ( $ENV{LUCY_VALGRIND} ) {