[lucy-commits] svn commit: r1074383 - /incubator/lucy/trunk/perl/t/binding/702-sample.t

[ma...@apache.org]

Author: marvin
Date: Fri Feb 25 02:39:37 2011
New Revision: 1074383

URL: http://svn.apache.org/viewvc?rev=1074383&view=rev
Log:
When running the sample code tests, skip if dependencies can't be found
(typical in automated testing environments because the dependencies are not
permanently installed).

Modified:
    incubator/lucy/trunk/perl/t/binding/702-sample.t

Modified: incubator/lucy/trunk/perl/t/binding/702-sample.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/binding/702-sample.t?rev=1074383&r1=1074382&r2=1074383&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/binding/702-sample.t (original)
+++ incubator/lucy/trunk/perl/t/binding/702-sample.t Fri Feb 25 02:39:37 2011
@@ -16,10 +16,18 @@
 use strict;
 use warnings;
 use lib 'buildlib';
-use Test::More tests => 1;
+use Test::More;
 use File::Spec::Functions qw( catfile catdir );
 use File::Path qw( rmtree );
 
+system("$^X -MJSON::XS -e1");
+if ($?) {
+    plan( skip_all => 'complicated @INC issue' );
+}
+else {
+    plan( tests => 1 );
+}
+
 my $search_cgi_orig_path = catfile(qw( sample search.cgi ));
 my $indexer_pl_orig_path = catfile(qw( sample indexer.pl ));