# -*- cperl -*-
use Test::More tests => 12;
use File::Path qw.remove_tree.;
BEGIN {
use_ok 'Search::Glimpse::Index';
}
use Cwd;
use File::Spec;
my $folder = File::Spec->catdir(getcwd, 'tmp');
remove_tree $folder if -d $folder;
die "$folder still exists and I can'd remove it.\nRemove it manually before running these tests again!" if -d $folder;
my $indexer = Search::Glimpse::Index->new(destdir => $folder);
ok($indexer);
$indexer->index('lib');
like($indexer->{output} => qr/Indexing .*lib/);
ok(-d $folder, "Folder $folder is there");
for my $file (qw!.glimpse_filetimes .glimpse_turbo .glimpse_statistics .glimpse_partitions
.glimpse_messages .glimpse_index .glimpse_filenames_index .glimpse_filenames!) {
my $f = File::Spec->catfile($folder => $file);
ok(-f $f, "File $f exists");
}
# cleanup
remove_tree $folder;