r71974 - in /branches/upstream/libkinosearch-perl/current: ./ core/KinoSearch/Index/ core/KinoSearch/Plan/ core/KinoSearch/Test/Index/ core/KinoSearch/Test/Plan/ lib/ lib/KinoSearch/ t/binding/ t/core/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Mar 25 15:07:11 UTC 2011
Author: gregoa
Date: Fri Mar 25 15:06:47 2011
New Revision: 71974
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71974
Log:
[svn-upgrade] new version libkinosearch-perl (0.313)
Added:
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.c
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.cfh
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.c
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.cfh
branches/upstream/libkinosearch-perl/current/t/core/225-polyreader.t
branches/upstream/libkinosearch-perl/current/t/core/234-field_type.t
Modified:
branches/upstream/libkinosearch-perl/current/Changes
branches/upstream/libkinosearch-perl/current/MANIFEST
branches/upstream/libkinosearch-perl/current/META.yml
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Index/PolyReader.c
branches/upstream/libkinosearch-perl/current/core/KinoSearch/Plan/FieldType.c
branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pm
branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pod
branches/upstream/libkinosearch-perl/current/lib/KinoSearch/Test.pm
branches/upstream/libkinosearch-perl/current/t/binding/702-sample.t
Modified: branches/upstream/libkinosearch-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/Changes?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/Changes (original)
+++ branches/upstream/libkinosearch-perl/current/Changes Fri Mar 25 15:06:47 2011
@@ -1,4 +1,11 @@
Revision history for KinoSearch
+
+0.313 2011-03-24
+
+ * Make FieldType checking more stringent.
+ * Fix a latent bug which might theoretically result in incorrect search
+ results on highly customized systems.
+ * Fix a test which was failing on automated testing systems.
0.312 2011-03-23
@@ -6,8 +13,7 @@
left behind or not cleaned up, etc.
* Guard against excessive search size requests.
* Skip a test which was prone to failure on automated testing systems.
- * Tweak META.yml for the so that the Clownfish build files get excluded
- properly.
+ * Tweak META.yml so that the Clownfish build files get excluded properly.
0.311 2010-12-28
Modified: branches/upstream/libkinosearch-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/MANIFEST?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/MANIFEST (original)
+++ branches/upstream/libkinosearch-perl/current/MANIFEST Fri Mar 25 15:06:47 2011
@@ -420,6 +420,8 @@
core/KinoSearch/Test/Index/TestHighlightWriter.cfh
core/KinoSearch/Test/Index/TestIndexManager.c
core/KinoSearch/Test/Index/TestIndexManager.cfh
+core/KinoSearch/Test/Index/TestPolyReader.c
+core/KinoSearch/Test/Index/TestPolyReader.cfh
core/KinoSearch/Test/Index/TestPostingListWriter.c
core/KinoSearch/Test/Index/TestPostingListWriter.cfh
core/KinoSearch/Test/Index/TestSegment.c
@@ -450,6 +452,8 @@
core/KinoSearch/Test/Plan/TestArchitecture.cfh
core/KinoSearch/Test/Plan/TestBlobType.c
core/KinoSearch/Test/Plan/TestBlobType.cfh
+core/KinoSearch/Test/Plan/TestFieldType.c
+core/KinoSearch/Test/Plan/TestFieldType.cfh
core/KinoSearch/Test/Plan/TestFullTextType.c
core/KinoSearch/Test/Plan/TestFullTextType.cfh
core/KinoSearch/Test/Plan/TestNumericType.c
@@ -1057,9 +1061,11 @@
t/core/221-highlight_writer.t
t/core/222-posting_list_writer.t
t/core/223-seg_writer.t
+t/core/225-polyreader.t
t/core/230-full_text_type.t
t/core/231-blob_type.t
t/core/232-numeric_type.t
+t/core/234-field_type.t
t/core/301-segment.t
t/core/501-termquery.t
t/core/502-phrasequery.t
Modified: branches/upstream/libkinosearch-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/META.yml?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/META.yml (original)
+++ branches/upstream/libkinosearch-perl/current/META.yml Fri Mar 25 15:06:47 2011
@@ -449,6 +449,8 @@
- core/KinoSearch/Test/Index/TestHighlightWriter.cfh
- core/KinoSearch/Test/Index/TestIndexManager.c
- core/KinoSearch/Test/Index/TestIndexManager.cfh
+ - core/KinoSearch/Test/Index/TestPolyReader.c
+ - core/KinoSearch/Test/Index/TestPolyReader.cfh
- core/KinoSearch/Test/Index/TestPostingListWriter.c
- core/KinoSearch/Test/Index/TestPostingListWriter.cfh
- core/KinoSearch/Test/Index/TestSegWriter.c
@@ -479,6 +481,8 @@
- core/KinoSearch/Test/Plan/TestArchitecture.cfh
- core/KinoSearch/Test/Plan/TestBlobType.c
- core/KinoSearch/Test/Plan/TestBlobType.cfh
+ - core/KinoSearch/Test/Plan/TestFieldType.c
+ - core/KinoSearch/Test/Plan/TestFieldType.cfh
- core/KinoSearch/Test/Plan/TestFullTextType.c
- core/KinoSearch/Test/Plan/TestFullTextType.cfh
- core/KinoSearch/Test/Plan/TestNumericType.c
@@ -987,9 +991,11 @@
- t/core/221-highlight_writer.t
- t/core/222-posting_list_writer.t
- t/core/223-seg_writer.t
+ - t/core/225-polyreader.t
- t/core/230-full_text_type.t
- t/core/231-blob_type.t
- t/core/232-numeric_type.t
+ - t/core/234-field_type.t
- t/core/301-segment.t
- t/core/501-termquery.t
- t/core/502-phrasequery.t
@@ -1052,7 +1058,7 @@
file: lib/KSx/Simple.pm
KinoSearch:
file: lib/KinoSearch.pm
- version: 0.312
+ version: 0.313
KinoSearch::Analysis::Analyzer:
file: lib/KinoSearch/Analysis/Analyzer.pm
KinoSearch::Analysis::CaseFolder:
@@ -1366,4 +1372,4 @@
Parse::RecDescent: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.312
+version: 0.313
Modified: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Index/PolyReader.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Index/PolyReader.c?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Index/PolyReader.c (original)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Index/PolyReader.c Fri Mar 25 15:06:47 2011
@@ -469,28 +469,37 @@
uint32_t
PolyReader_sub_tick(I32Array *offsets, int32_t doc_id)
{
- uint32_t lo = 0;
- uint32_t hi_tick = I32Arr_Get_Size(offsets) - 1;
- uint32_t hi = hi_tick;
+ int32_t size = I32Arr_Get_Size(offsets);
+ if (size == 0) {
+ return 0;
+ }
- while (hi >= lo) {
- uint32_t mid = lo + ((hi - lo) / 2);
- int32_t mid_start = I32Arr_Get(offsets, mid) + 1;
- if (doc_id < mid_start) {
- hi = mid - 1;
- }
- else if (doc_id > mid_start) {
- lo = mid + 1;
- }
+ int32_t lo = -1;
+ int32_t hi = size;
+ while (hi - lo > 1) {
+ int32_t mid = lo + ((hi - lo) / 2);
+ int32_t offset = I32Arr_Get(offsets, mid);
+ if (doc_id <= offset) {
+ hi = mid;
+ }
else {
- while ( mid < hi_tick
- && I32Arr_Get(offsets, mid + 1) == mid_start
- ) {
- mid++;
- }
- return mid;
- }
- }
+ lo = mid;
+ }
+ }
+ if (hi == size) {
+ hi--;
+ }
+
+ while (hi > 0) {
+ int32_t offset = I32Arr_Get(offsets, hi);
+ if (doc_id <= offset) {
+ hi--;
+ }
+ else {
+ break;
+ }
+ }
+
return hi;
}
Modified: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Plan/FieldType.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Plan/FieldType.c?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Plan/FieldType.c (original)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Plan/FieldType.c Fri Mar 25 15:06:47 2011
@@ -71,6 +71,7 @@
{
FieldType *evil_twin = (FieldType*)other;
if (evil_twin == self) return true;
+ if (FType_Get_VTable(self) != FType_Get_VTable(evil_twin)) return false;
if (self->boost != evil_twin->boost) return false;
if (!!self->indexed != !!evil_twin->indexed) return false;
if (!!self->stored != !!evil_twin->stored) return false;
Added: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.c?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.c (added)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.c Fri Mar 25 15:06:47 2011
@@ -1,0 +1,41 @@
+#define C_KINO_TESTPOLYREADER
+#include "KinoSearch/Util/ToolSet.h"
+
+#include "KinoSearch/Test.h"
+#include "KinoSearch/Test/Index/TestPolyReader.h"
+#include "KinoSearch/Index/PolyReader.h"
+
+static void
+test_sub_tick(TestBatch *batch)
+{
+ size_t num_segs = 255;
+ int32_t *ints = (int32_t*)MALLOCATE(num_segs * sizeof(int32_t));
+ size_t i;
+ for (i = 0; i < num_segs; i++) {
+ ints[i] = i;
+ }
+ I32Array *offsets = I32Arr_new(ints, num_segs);
+ for (i = 1; i < num_segs; i++) {
+ if (PolyReader_sub_tick(offsets, i) != i - 1) { break; }
+ }
+ TEST_INT_EQ(batch, i, num_segs, "got all sub_tick() calls right");
+ DECREF(offsets);
+}
+
+void
+TestPolyReader_run_tests()
+{
+ TestBatch *batch = TestBatch_new(1);
+ TestBatch_Plan(batch);
+
+ test_sub_tick(batch);
+
+ DECREF(batch);
+}
+
+/* Copyright 2010-2011 Marvin Humphrey
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * under the same terms as Perl itself.
+ */
+
Added: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.cfh
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.cfh?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.cfh (added)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Index/TestPolyReader.cfh Fri Mar 25 15:06:47 2011
@@ -1,0 +1,13 @@
+parcel KinoSearch cnick Kino;
+
+inert class KinoSearch::Test::Index::TestPolyReader {
+ inert void
+ run_tests();
+}
+
+/* Copyright 2010-2011 Marvin Humphrey
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * under the same terms as Perl itself.
+ */
+
Added: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.c?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.c (added)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.c Fri Mar 25 15:06:47 2011
@@ -1,0 +1,98 @@
+#define C_KINO_TESTFIELDTYPE
+#define C_KINO_DUMMYFIELDTYPE
+#include "KinoSearch/Util/ToolSet.h"
+
+#include "KinoSearch/Test.h"
+#include "KinoSearch/Test/Plan/TestFieldType.h"
+#include "KinoSearch/Test/TestUtils.h"
+
+DummyFieldType*
+DummyFieldType_new()
+{
+ DummyFieldType *self = (DummyFieldType*)VTable_Make_Obj(DUMMYFIELDTYPE);
+ return (DummyFieldType*)FType_init((FieldType*)self);
+}
+
+static FieldType*
+S_alt_field_type()
+{
+ ZombieCharBuf *name = ZCB_WRAP_STR("DummyFieldType2", 15);
+ VTable *vtable = VTable_singleton((CharBuf*)name, DUMMYFIELDTYPE);
+ FieldType *self = (FieldType*)VTable_Make_Obj(vtable);
+ return FType_init(self);
+}
+
+static void
+test_Dump_Load_and_Equals(TestBatch *batch)
+{
+ FieldType *type = (FieldType*)DummyFieldType_new();
+ FieldType *other = (FieldType*)DummyFieldType_new();
+ FieldType *class_differs = S_alt_field_type();
+ FieldType *boost_differs = (FieldType*)DummyFieldType_new();
+ FieldType *indexed = (FieldType*)DummyFieldType_new();
+ FieldType *stored = (FieldType*)DummyFieldType_new();
+
+ FType_Set_Boost(other, 1.0);
+ FType_Set_Indexed(indexed, false);
+ FType_Set_Stored(stored, false);
+
+ FType_Set_Boost(boost_differs, 1.5);
+ FType_Set_Indexed(indexed, true);
+ FType_Set_Stored(stored, true);
+
+ TEST_TRUE(batch, FType_Equals(type, (Obj*)other),
+ "Equals() true with identical stats");
+ TEST_FALSE(batch, FType_Equals(type, (Obj*)class_differs),
+ "Equals() false with subclass");
+ TEST_FALSE(batch, FType_Equals(type, (Obj*)class_differs),
+ "Equals() false with super class");
+ TEST_FALSE(batch, FType_Equals(type, (Obj*)boost_differs),
+ "Equals() false with different boost");
+ TEST_FALSE(batch, FType_Equals(type, (Obj*)indexed),
+ "Equals() false with indexed => true");
+ TEST_FALSE(batch, FType_Equals(type, (Obj*)stored),
+ "Equals() false with stored => true");
+
+ DECREF(stored);
+ DECREF(indexed);
+ DECREF(boost_differs);
+ DECREF(other);
+ DECREF(type);
+}
+
+static void
+test_Compare_Values(TestBatch *batch)
+{
+ FieldType *type = (FieldType*)DummyFieldType_new();
+ ZombieCharBuf *a = ZCB_WRAP_STR("a", 1);
+ ZombieCharBuf *b = ZCB_WRAP_STR("b", 1);
+
+ TEST_TRUE(batch,
+ FType_Compare_Values(type, (Obj*)a, (Obj*)b) < 0,
+ "a less than b");
+ TEST_TRUE(batch,
+ FType_Compare_Values(type, (Obj*)b, (Obj*)a) > 0,
+ "b greater than a");
+ TEST_TRUE(batch,
+ FType_Compare_Values(type, (Obj*)b, (Obj*)b) == 0,
+ "b equals b");
+
+ DECREF(type);
+}
+
+void
+TestFType_run_tests()
+{
+ TestBatch *batch = TestBatch_new(9);
+ TestBatch_Plan(batch);
+ test_Dump_Load_and_Equals(batch);
+ test_Compare_Values(batch);
+ DECREF(batch);
+}
+
+/* Copyright 2005-2011 Marvin Humphrey
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * under the same terms as Perl itself.
+ */
+
Added: branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.cfh
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.cfh?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.cfh (added)
+++ branches/upstream/libkinosearch-perl/current/core/KinoSearch/Test/Plan/TestFieldType.cfh Fri Mar 25 15:06:47 2011
@@ -1,0 +1,18 @@
+parcel KinoSearch cnick Kino;
+
+inert class KinoSearch::Test::Plan::TestFieldType cnick TestFType {
+ inert void
+ run_tests();
+}
+
+class KinoSearch::Test::Plan::DummyFieldType inherits KinoSearch::Plan::FieldType {
+ inert incremented DummyFieldType*
+ new();
+}
+
+/* Copyright 2005-2011 Marvin Humphrey
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * under the same terms as Perl itself.
+ */
+
Modified: branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pm?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pm (original)
+++ branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pm Fri Mar 25 15:06:47 2011
@@ -6,12 +6,12 @@
use 5.008003;
use Exporter;
-our $VERSION = '0.312';
+our $VERSION = '0.313';
$VERSION = eval $VERSION;
use XSLoader;
# This loads a large number of disparate subs.
-BEGIN { XSLoader::load( 'KinoSearch', '0.312' ) }
+BEGIN { XSLoader::load( 'KinoSearch', '0.313' ) }
BEGIN {
push our @ISA, 'Exporter';
Modified: branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pod?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pod (original)
+++ branches/upstream/libkinosearch-perl/current/lib/KinoSearch.pod Fri Mar 25 15:06:47 2011
@@ -4,7 +4,7 @@
=head1 VERSION
-0.312
+0.313
=head1 SYNOPSIS
Modified: branches/upstream/libkinosearch-perl/current/lib/KinoSearch/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/lib/KinoSearch/Test.pm?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/lib/KinoSearch/Test.pm (original)
+++ branches/upstream/libkinosearch-perl/current/lib/KinoSearch/Test.pm Fri Mar 25 15:06:47 2011
@@ -63,6 +63,9 @@
else if (strEQ(package, "TestBlobType")) {
kino_TestBlobType_run_tests();
}
+ else if (strEQ(package, "TestFieldType")) {
+ kino_TestFType_run_tests();
+ }
else if (strEQ(package, "TestFullTextType")) {
kino_TestFullTextType_run_tests();
}
@@ -81,6 +84,9 @@
}
else if (strEQ(package, "TestIndexManager")) {
kino_TestIxManager_run_tests();
+ }
+ else if (strEQ(package, "TestPolyReader")) {
+ kino_TestPolyReader_run_tests();
}
else if (strEQ(package, "TestPostingListWriter")) {
kino_TestPListWriter_run_tests();
Modified: branches/upstream/libkinosearch-perl/current/t/binding/702-sample.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/t/binding/702-sample.t?rev=71974&op=diff
==============================================================================
--- branches/upstream/libkinosearch-perl/current/t/binding/702-sample.t (original)
+++ branches/upstream/libkinosearch-perl/current/t/binding/702-sample.t Fri Mar 25 15:06:47 2011
@@ -1,20 +1,19 @@
use strict;
use warnings;
use lib 'buildlib';
-use Test::More;
+use Test::More tests => 1;
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 ));
+
+# Ensure that all @INC dirs make it into the scripts. We can't use PERL5LIB
+# because search.cgi runs with taint mode and environment vars are tainted.
+my $blib_arch = catdir(qw( blib arch ));
+my $blib_lib = catdir(qw( blib lib ));
+my @inc_dirs = map {"use lib '$_';"} ( $blib_arch, $blib_lib, @INC );
+my $use_dirs = join( "\n", @inc_dirs );
for my $filename (qw( search.cgi indexer.pl )) {
my $orig_path = catfile( 'sample', $filename );
@@ -25,10 +24,7 @@
or die "no match";
my $uscon_source = catdir(qw( sample us_constitution ));
$content =~ s/(uscon_source\s+=\s+).*?;/$1'$uscon_source';/;
- my $blib_arch = catdir(qw( blib arch ));
- my $blib_lib = catdir(qw( blib lib ));
- my $blib = "use lib '$blib_arch';\nuse lib '$blib_lib'\n";
- $content =~ s/^use/$blib;\nuse/m;
+ $content =~ s/^use/$use_dirs;\nuse/m;
open( $fh, '>', "_$filename" ) or die $!;
print $fh $content;
close $fh or die "Close failed: $!";
Added: branches/upstream/libkinosearch-perl/current/t/core/225-polyreader.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/t/core/225-polyreader.t?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/t/core/225-polyreader.t (added)
+++ branches/upstream/libkinosearch-perl/current/t/core/225-polyreader.t Fri Mar 25 15:06:47 2011
@@ -1,0 +1,6 @@
+use strict;
+use warnings;
+
+use KinoSearch::Test;
+KinoSearch::Test::run_tests("TestPolyReader");
+
Added: branches/upstream/libkinosearch-perl/current/t/core/234-field_type.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libkinosearch-perl/current/t/core/234-field_type.t?rev=71974&op=file
==============================================================================
--- branches/upstream/libkinosearch-perl/current/t/core/234-field_type.t (added)
+++ branches/upstream/libkinosearch-perl/current/t/core/234-field_type.t Fri Mar 25 15:06:47 2011
@@ -1,0 +1,6 @@
+use strict;
+use warnings;
+
+use KinoSearch::Test;
+KinoSearch::Test::run_tests("TestFieldType");
+
More information about the Pkg-perl-cvs-commits
mailing list