You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2013/02/24 18:25:56 UTC
[lucy-commits] [8/19] Refactor core tests
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/036-i32_array.t
----------------------------------------------------------------------
diff --git a/perl/t/core/036-i32_array.t b/perl/t/core/036-i32_array.t
index 8863574..31a6fda 100644
--- a/perl/t/core/036-i32_array.t
+++ b/perl/t/core/036-i32_array.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestI32Array");
+my $success = Lucy::Test::run_tests("Lucy::Test::Object::TestI32Array");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/037-atomic.t
----------------------------------------------------------------------
diff --git a/perl/t/core/037-atomic.t b/perl/t/core/037-atomic.t
index 7418fa7..c21c0dd 100644
--- a/perl/t/core/037-atomic.t
+++ b/perl/t/core/037-atomic.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestAtomic");
+my $success = Lucy::Test::run_tests("Lucy::Test::Util::TestAtomic");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/038-lock_free_registry.t
----------------------------------------------------------------------
diff --git a/perl/t/core/038-lock_free_registry.t b/perl/t/core/038-lock_free_registry.t
index 4126fe2..d9940b5 100644
--- a/perl/t/core/038-lock_free_registry.t
+++ b/perl/t/core/038-lock_free_registry.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestLockFreeRegistry");
+my $success = Lucy::Test::run_tests("Lucy::Test::Object::TestLockFreeRegistry");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/039-memory.t
----------------------------------------------------------------------
diff --git a/perl/t/core/039-memory.t b/perl/t/core/039-memory.t
index 0f4ce95..8bf2565 100644
--- a/perl/t/core/039-memory.t
+++ b/perl/t/core/039-memory.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestMemory");
+my $success = Lucy::Test::run_tests("Lucy::Test::Util::TestMemory");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/050-ram_file_handle.t
----------------------------------------------------------------------
diff --git a/perl/t/core/050-ram_file_handle.t b/perl/t/core/050-ram_file_handle.t
index 1f08ced..202c93b 100644
--- a/perl/t/core/050-ram_file_handle.t
+++ b/perl/t/core/050-ram_file_handle.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestRAMFileHandle");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestRAMFileHandle");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/051-fs_file_handle.t
----------------------------------------------------------------------
diff --git a/perl/t/core/051-fs_file_handle.t b/perl/t/core/051-fs_file_handle.t
index 0f4a31b..f000b75 100644
--- a/perl/t/core/051-fs_file_handle.t
+++ b/perl/t/core/051-fs_file_handle.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFSFileHandle");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestFSFileHandle");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/052-instream.t
----------------------------------------------------------------------
diff --git a/perl/t/core/052-instream.t b/perl/t/core/052-instream.t
index 7417aae..6fdf11d 100644
--- a/perl/t/core/052-instream.t
+++ b/perl/t/core/052-instream.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestInStream");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestInStream");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/053-file_handle.t
----------------------------------------------------------------------
diff --git a/perl/t/core/053-file_handle.t b/perl/t/core/053-file_handle.t
index bc7bb6f..a33eb14 100644
--- a/perl/t/core/053-file_handle.t
+++ b/perl/t/core/053-file_handle.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFileHandle");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestFileHandle");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/054-io_primitives.t
----------------------------------------------------------------------
diff --git a/perl/t/core/054-io_primitives.t b/perl/t/core/054-io_primitives.t
index 4ab011d..f415d6c 100644
--- a/perl/t/core/054-io_primitives.t
+++ b/perl/t/core/054-io_primitives.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestIOPrimitives");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestIOPrimitives");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/055-io_chunks.t
----------------------------------------------------------------------
diff --git a/perl/t/core/055-io_chunks.t b/perl/t/core/055-io_chunks.t
index f042703..9b8ddd2 100644
--- a/perl/t/core/055-io_chunks.t
+++ b/perl/t/core/055-io_chunks.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestIOChunks");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestIOChunks");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/061-ram_dir_handle.t
----------------------------------------------------------------------
diff --git a/perl/t/core/061-ram_dir_handle.t b/perl/t/core/061-ram_dir_handle.t
index 5d38599..9b2cf12 100644
--- a/perl/t/core/061-ram_dir_handle.t
+++ b/perl/t/core/061-ram_dir_handle.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestRAMDirHandle");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestRAMDirHandle");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/062-fs_dir_handle.t
----------------------------------------------------------------------
diff --git a/perl/t/core/062-fs_dir_handle.t b/perl/t/core/062-fs_dir_handle.t
index b1c0f1f..61c7b9f 100644
--- a/perl/t/core/062-fs_dir_handle.t
+++ b/perl/t/core/062-fs_dir_handle.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFSDirHandle");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestFSDirHandle");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/103-fs_folder.t
----------------------------------------------------------------------
diff --git a/perl/t/core/103-fs_folder.t b/perl/t/core/103-fs_folder.t
index b628762..1db60c3 100644
--- a/perl/t/core/103-fs_folder.t
+++ b/perl/t/core/103-fs_folder.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFSFolder");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestFSFolder");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/104-ram_folder.t
----------------------------------------------------------------------
diff --git a/perl/t/core/104-ram_folder.t b/perl/t/core/104-ram_folder.t
index c7007ea..f105e5b 100644
--- a/perl/t/core/104-ram_folder.t
+++ b/perl/t/core/104-ram_folder.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestRAMFolder");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestRAMFolder");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/105-folder.t
----------------------------------------------------------------------
diff --git a/perl/t/core/105-folder.t b/perl/t/core/105-folder.t
index 96523eb..e169778 100644
--- a/perl/t/core/105-folder.t
+++ b/perl/t/core/105-folder.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFolder");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestFolder");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/111-index_manager.t
----------------------------------------------------------------------
diff --git a/perl/t/core/111-index_manager.t b/perl/t/core/111-index_manager.t
index ba31713..b6f5ead 100644
--- a/perl/t/core/111-index_manager.t
+++ b/perl/t/core/111-index_manager.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestIndexManager");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestIndexManager");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/112-cf_writer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/112-cf_writer.t b/perl/t/core/112-cf_writer.t
index aeaeab9..a2a931e 100644
--- a/perl/t/core/112-cf_writer.t
+++ b/perl/t/core/112-cf_writer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestCompoundFileWriter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestCompoundFileWriter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/113-cf_reader.t
----------------------------------------------------------------------
diff --git a/perl/t/core/113-cf_reader.t b/perl/t/core/113-cf_reader.t
index 1dc7a4a..927cbe6 100644
--- a/perl/t/core/113-cf_reader.t
+++ b/perl/t/core/113-cf_reader.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestCompoundFileReader");
+my $success = Lucy::Test::run_tests("Lucy::Test::Store::TestCompoundFileReader");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/150-analyzer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/150-analyzer.t b/perl/t/core/150-analyzer.t
index c845881..742312d 100644
--- a/perl/t/core/150-analyzer.t
+++ b/perl/t/core/150-analyzer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestAnalyzer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestAnalyzer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/150-polyanalyzer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/150-polyanalyzer.t b/perl/t/core/150-polyanalyzer.t
index c4cd02a..8dc3a5b 100644
--- a/perl/t/core/150-polyanalyzer.t
+++ b/perl/t/core/150-polyanalyzer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestPolyAnalyzer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestPolyAnalyzer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/153-case_folder.t
----------------------------------------------------------------------
diff --git a/perl/t/core/153-case_folder.t b/perl/t/core/153-case_folder.t
index b56433b..7945453 100644
--- a/perl/t/core/153-case_folder.t
+++ b/perl/t/core/153-case_folder.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestCaseFolder");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestCaseFolder");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/154-regex_tokenizer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/154-regex_tokenizer.t b/perl/t/core/154-regex_tokenizer.t
index 3a315b9..3b9924c 100644
--- a/perl/t/core/154-regex_tokenizer.t
+++ b/perl/t/core/154-regex_tokenizer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestRegexTokenizer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestRegexTokenizer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/155-snowball_stop_filter.t
----------------------------------------------------------------------
diff --git a/perl/t/core/155-snowball_stop_filter.t b/perl/t/core/155-snowball_stop_filter.t
index 84c0b22..e56e628 100644
--- a/perl/t/core/155-snowball_stop_filter.t
+++ b/perl/t/core/155-snowball_stop_filter.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSnowballStopFilter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestSnowballStopFilter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/156-snowball_stemmer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/156-snowball_stemmer.t b/perl/t/core/156-snowball_stemmer.t
index e0d4f46..f59b847 100644
--- a/perl/t/core/156-snowball_stemmer.t
+++ b/perl/t/core/156-snowball_stemmer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSnowStemmer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestSnowballStemmer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/157-normalizer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/157-normalizer.t b/perl/t/core/157-normalizer.t
index bb13853..1a310b3 100644
--- a/perl/t/core/157-normalizer.t
+++ b/perl/t/core/157-normalizer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestNormalizer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestNormalizer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/158-standard_tokenizer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/158-standard_tokenizer.t b/perl/t/core/158-standard_tokenizer.t
index 6714c0c..b287c65 100644
--- a/perl/t/core/158-standard_tokenizer.t
+++ b/perl/t/core/158-standard_tokenizer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestStandardTokenizer");
+my $success = Lucy::Test::run_tests("Lucy::Test::Analysis::TestStandardTokenizer");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/206-snapshot.t
----------------------------------------------------------------------
diff --git a/perl/t/core/206-snapshot.t b/perl/t/core/206-snapshot.t
index a6ad117..de5d65f 100644
--- a/perl/t/core/206-snapshot.t
+++ b/perl/t/core/206-snapshot.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSnapshot");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestSnapshot");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/208-terminfo.t
----------------------------------------------------------------------
diff --git a/perl/t/core/208-terminfo.t b/perl/t/core/208-terminfo.t
index 67c3053..c287fbb 100644
--- a/perl/t/core/208-terminfo.t
+++ b/perl/t/core/208-terminfo.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestTermInfo");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestTermInfo");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/214-field_misc.t
----------------------------------------------------------------------
diff --git a/perl/t/core/214-field_misc.t b/perl/t/core/214-field_misc.t
index b3029ab..d3eaab1 100644
--- a/perl/t/core/214-field_misc.t
+++ b/perl/t/core/214-field_misc.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFieldMisc");
+my $success = Lucy::Test::run_tests("Lucy::Test::Plan::TestFieldMisc");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/216-schema.t
----------------------------------------------------------------------
diff --git a/perl/t/core/216-schema.t b/perl/t/core/216-schema.t
index 2bbbe40..293aa2c 100644
--- a/perl/t/core/216-schema.t
+++ b/perl/t/core/216-schema.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSchema");
+my $success = Lucy::Test::run_tests("Lucy::Test::TestBatchSchema");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/220-doc_writer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/220-doc_writer.t b/perl/t/core/220-doc_writer.t
index c35b84e..0221cfc 100644
--- a/perl/t/core/220-doc_writer.t
+++ b/perl/t/core/220-doc_writer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestDocWriter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestDocWriter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/221-highlight_writer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/221-highlight_writer.t b/perl/t/core/221-highlight_writer.t
index c17f68b..38615f2 100644
--- a/perl/t/core/221-highlight_writer.t
+++ b/perl/t/core/221-highlight_writer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestHighlightWriter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestHighlightWriter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/222-posting_list_writer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/222-posting_list_writer.t b/perl/t/core/222-posting_list_writer.t
index e2e9680..a295897 100644
--- a/perl/t/core/222-posting_list_writer.t
+++ b/perl/t/core/222-posting_list_writer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestPostingListWriter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestPostingListWriter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/223-seg_writer.t
----------------------------------------------------------------------
diff --git a/perl/t/core/223-seg_writer.t b/perl/t/core/223-seg_writer.t
index 479d718..f36854b 100644
--- a/perl/t/core/223-seg_writer.t
+++ b/perl/t/core/223-seg_writer.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSegWriter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestSegWriter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/225-polyreader.t
----------------------------------------------------------------------
diff --git a/perl/t/core/225-polyreader.t b/perl/t/core/225-polyreader.t
index e72b24c..f2f8ee1 100644
--- a/perl/t/core/225-polyreader.t
+++ b/perl/t/core/225-polyreader.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestPolyReader");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestPolyReader");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/230-full_text_type.t
----------------------------------------------------------------------
diff --git a/perl/t/core/230-full_text_type.t b/perl/t/core/230-full_text_type.t
index 02cb10b..087fe5a 100644
--- a/perl/t/core/230-full_text_type.t
+++ b/perl/t/core/230-full_text_type.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFullTextType");
+my $success = Lucy::Test::run_tests("Lucy::Test::Plan::TestFullTextType");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/231-blob_type.t
----------------------------------------------------------------------
diff --git a/perl/t/core/231-blob_type.t b/perl/t/core/231-blob_type.t
index 9002a61..161b3d9 100644
--- a/perl/t/core/231-blob_type.t
+++ b/perl/t/core/231-blob_type.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestBlobType");
+my $success = Lucy::Test::run_tests("Lucy::Test::Plan::TestBlobType");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/232-numeric_type.t
----------------------------------------------------------------------
diff --git a/perl/t/core/232-numeric_type.t b/perl/t/core/232-numeric_type.t
index ee18817..3428da1 100644
--- a/perl/t/core/232-numeric_type.t
+++ b/perl/t/core/232-numeric_type.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestNumericType");
+my $success = Lucy::Test::run_tests("Lucy::Test::Plan::TestNumericType");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/234-field_type.t
----------------------------------------------------------------------
diff --git a/perl/t/core/234-field_type.t b/perl/t/core/234-field_type.t
index 36f9f65..d540a1f 100644
--- a/perl/t/core/234-field_type.t
+++ b/perl/t/core/234-field_type.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestFieldType");
+my $success = Lucy::Test::run_tests("Lucy::Test::Plan::TestFieldType");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/301-segment.t
----------------------------------------------------------------------
diff --git a/perl/t/core/301-segment.t b/perl/t/core/301-segment.t
index b863179..77bd6d4 100644
--- a/perl/t/core/301-segment.t
+++ b/perl/t/core/301-segment.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSegment");
+my $success = Lucy::Test::run_tests("Lucy::Test::Index::TestSegment");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/303-highlighter.t
----------------------------------------------------------------------
diff --git a/perl/t/core/303-highlighter.t b/perl/t/core/303-highlighter.t
index b5aceba..aced026 100644
--- a/perl/t/core/303-highlighter.t
+++ b/perl/t/core/303-highlighter.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestHighlighter");
+my $success = Lucy::Test::run_tests("Lucy::Test::Highlight::TestHighlighter");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/309-span.t
----------------------------------------------------------------------
diff --git a/perl/t/core/309-span.t b/perl/t/core/309-span.t
index fd57153..e484a3f 100644
--- a/perl/t/core/309-span.t
+++ b/perl/t/core/309-span.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSpan");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestSpan");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/310-heat_map.t
----------------------------------------------------------------------
diff --git a/perl/t/core/310-heat_map.t b/perl/t/core/310-heat_map.t
index 6472677..d6929b7 100644
--- a/perl/t/core/310-heat_map.t
+++ b/perl/t/core/310-heat_map.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("Lucy::Test::Highlight::TestHeatMap");
+my $success = Lucy::Test::run_tests("Lucy::Test::Highlight::TestHeatMap");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/501-termquery.t
----------------------------------------------------------------------
diff --git a/perl/t/core/501-termquery.t b/perl/t/core/501-termquery.t
index 517fe15..db14e6a 100644
--- a/perl/t/core/501-termquery.t
+++ b/perl/t/core/501-termquery.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestTermQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestTermQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/502-phrasequery.t
----------------------------------------------------------------------
diff --git a/perl/t/core/502-phrasequery.t b/perl/t/core/502-phrasequery.t
index 2c73c91..3d56c18 100644
--- a/perl/t/core/502-phrasequery.t
+++ b/perl/t/core/502-phrasequery.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestPhraseQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestPhraseQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/511-sort_spec.t
----------------------------------------------------------------------
diff --git a/perl/t/core/511-sort_spec.t b/perl/t/core/511-sort_spec.t
index fa5c109..78ec46a 100644
--- a/perl/t/core/511-sort_spec.t
+++ b/perl/t/core/511-sort_spec.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSortSpec");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestSortSpec");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/515-range_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/515-range_query.t b/perl/t/core/515-range_query.t
index 97196a1..655602b 100644
--- a/perl/t/core/515-range_query.t
+++ b/perl/t/core/515-range_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestRangeQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestRangeQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/523-and_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/523-and_query.t b/perl/t/core/523-and_query.t
index 85b90b9..7272ef7 100644
--- a/perl/t/core/523-and_query.t
+++ b/perl/t/core/523-and_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestANDQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestANDQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/525-match_all_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/525-match_all_query.t b/perl/t/core/525-match_all_query.t
index fb7b599..e105e82 100644
--- a/perl/t/core/525-match_all_query.t
+++ b/perl/t/core/525-match_all_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestMatchAllQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestMatchAllQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/526-not_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/526-not_query.t b/perl/t/core/526-not_query.t
index f570e71..eaf9713 100644
--- a/perl/t/core/526-not_query.t
+++ b/perl/t/core/526-not_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestNOTQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestNOTQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/527-req_opt_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/527-req_opt_query.t b/perl/t/core/527-req_opt_query.t
index 5434671..588aa6f 100644
--- a/perl/t/core/527-req_opt_query.t
+++ b/perl/t/core/527-req_opt_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestReqOptQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestReqOptQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/528-leaf_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/528-leaf_query.t b/perl/t/core/528-leaf_query.t
index 65ac539..590f9f2 100644
--- a/perl/t/core/528-leaf_query.t
+++ b/perl/t/core/528-leaf_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestLeafQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestLeafQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/529-no_match_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/529-no_match_query.t b/perl/t/core/529-no_match_query.t
index 653dc2e..99dbcea 100644
--- a/perl/t/core/529-no_match_query.t
+++ b/perl/t/core/529-no_match_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestNoMatchQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestNoMatchQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/530-series_matcher.t
----------------------------------------------------------------------
diff --git a/perl/t/core/530-series_matcher.t b/perl/t/core/530-series_matcher.t
index 4ed89b5..c364517 100644
--- a/perl/t/core/530-series_matcher.t
+++ b/perl/t/core/530-series_matcher.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestSeriesMatcher");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestSeriesMatcher");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/531-or_query.t
----------------------------------------------------------------------
diff --git a/perl/t/core/531-or_query.t b/perl/t/core/531-or_query.t
index 404e614..84b9e87 100644
--- a/perl/t/core/531-or_query.t
+++ b/perl/t/core/531-or_query.t
@@ -17,5 +17,7 @@ use strict;
use warnings;
use Lucy::Test;
-Lucy::Test::run_tests("TestORQuery");
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestORQuery");
+
+exit($success ? 0 : 1);
http://git-wip-us.apache.org/repos/asf/lucy/blob/c6b07c3a/perl/t/core/610-queryparser_logic.t
----------------------------------------------------------------------
diff --git a/perl/t/core/610-queryparser_logic.t b/perl/t/core/610-queryparser_logic.t
new file mode 100644
index 0000000..feffaf6
--- /dev/null
+++ b/perl/t/core/610-queryparser_logic.t
@@ -0,0 +1,23 @@
+# Licensed to the Apache Software Foundation (ASF) under one or more
+# contributor license agreements. See the NOTICE file distributed with
+# this work for additional information regarding copyright ownership.
+# The ASF licenses this file to You under the Apache License, Version 2.0
+# (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+use strict;
+use warnings;
+
+use Lucy::Test;
+my $success = Lucy::Test::run_tests("Lucy::Test::Search::TestQueryParserLogic");
+
+exit($success ? 0 : 1);
+