[svn:parrot] r37497 - trunk/t/examples

[coke at svn.parrot.org]

Author: coke
Date: Mon Mar 16 20:16:34 2009
New Revision: 37497
URL: https://trac.parrot.org/parrot/changeset/37497

Log:
Skip PCRE test that can cause failures, with ticket.

Modified:
   trunk/t/examples/library.t

Modified: trunk/t/examples/library.t
==============================================================================
--- trunk/t/examples/library.t	Mon Mar 16 20:13:23 2009	(r37496)
+++ trunk/t/examples/library.t	Mon Mar 16 20:16:34 2009	(r37497)
@@ -55,12 +55,9 @@
     is( $sum, "fb171bd1a17bf6cd08d73105ad738a35\t$sample_fn\n", $md5sum_fn );
 }
 
-# Testing pcre.pir with a simple pattern, if we have PCRE
-my $cmd = ( $^O =~ /MSWin32/ ) ? "pcregrep --version" : "pcre-config --version";
-my $has_pcre = Parrot::Test::run_command( $cmd, STDERR => File::Spec->devnull() ) == 0;
 SKIP:
 {
-    skip( 'no pcre-config', 1 ) unless $has_pcre;
+    skip( 'no pcre-config', 1 ); # Original check for PCRE flawed (TT #406)
 
     my $pcre_fn  = File::Spec->catfile(qw( examples library pcre.pir ));
     my $test_out = `$PARROT $pcre_fn asdf as`;