perl/t/308-simple.t

# 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 lib 'buildlib';

use Test::More tests => 8;
use Lucy::Simple;
use Lucy::Test::TestUtils qw( init_test_index_loc );

my $test_index_loc = init_test_index_loc();

my $lucy = Lucy::Simple->new(
    language => 'en',
    path     => $test_index_loc,
);

$lucy->add_doc( { food => 'creamed corn' } );
is( $lucy->search( query => 'creamed' ), 1, "search warks right after add" );

$lucy->add_doc( { food => 'creamed spinach' } );
is( $lucy->search( query => 'creamed' ), 2, "search returns total hits" );

$lucy->add_doc( { food => 'creamed broccoli' } );
undef $lucy;
$lucy = Lucy::Simple->new(
    language => 'en',
    path     => $test_index_loc,
);
is( $lucy->search( query => 'cream' ), 3, "commit upon destroy" );

while ( my $hit = $lucy->next ) {
    like( $hit->{food}, qr/cream/, 'next' );
}

$lucy->add_doc( { band => 'Cream' } );
is( $lucy->search( query => 'cream' ), 4,
    "search uses correct EasyAnalyzer" );

undef $lucy;
SKIP: {
    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();

    # Fork a process that will create an index without explicitly finishing
    # it, and then exit, with the Simple object still in existence at
    # global destruction time.
    my $pid = fork();
    if ( $pid == 0 ) {    # child
        our               # This *has* to be 'our' for the test to work
            $lucy = Lucy::Simple->new(
            language => 'en',
            path     => $test_index_loc,
            );

        $lucy->add_doc( { food => 'creamed corn' } );
        exit;
    }
    else {
        waitpid( $pid, 0 );
    }

    my $lucy = Lucy::Simple->new(
        language => 'en',
        path     => $test_index_loc,
    );

    ok eval {    # This should die if the index wasn't finished.
        $lucy->search( query => 'creamed' );
        1;
    }, 'Simple finishes indexing during END block (apparently)';

}