use strict;
use warnings;
use Test::More;

# preamble to make it work portably regardless of where the test is run
use File::Spec::Functions;
my ($volume, $dirstring, $file) = File::Spec->splitpath($0);
my @DIRS = File::Spec->splitdir($dirstring);
pop @DIRS while (@DIRS and $DIRS[-1] =~ /^(t|)$/);
unshift @INC, catdir(@DIRS);

#plan 'no_plan';
plan tests => 9;

use_ok('Pod::Index::Search');

my ($q, @results);

####### CASE-SENSITIVE ##########

$q = Pod::Index::Search->new(
    filename => catfile(@DIRS, 't', 'test.txt'),
);

@results = $q->search('tritium');
is( scalar @results, 1, 'tritium (case)');

@results = $q->search('Tritium');
is( scalar @results, 1, 'Tritium (case)');

@results = $q->subtopics('tritium');
is( scalar @results, 1, 'tritium subtopics (case)');

@results = $q->subtopics('Tritium');
is( scalar @results, 1, 'Tritium subtopics (case)');



####### CASE-INSENSITIVE ##########

$q = Pod::Index::Search->new(
    filename => catfile(@DIRS, 't', 'test.txt'),
    nocase   => 1,
);

@results = $q->search('tritium');
is( scalar @results, 2, 'tritium (nocase)');

@results = $q->search('Tritium');
is( scalar @results, 2, 'Tritium (nocase)');

@results = $q->subtopics('tritium');
is( scalar @results, 2, 'tritium subtopics (nocase)');

@results = $q->subtopics('Tritium');
is( scalar @results, 2, 'Tritium subtopics (nocase)');