#!/usr/bin/perl -w
# $Id: 02indexer.t,v 1.2 2002/04/01 11:17:14 piers Exp $
use strict;
use lib qw(./lib ../lib);
use Test;
use Cwd;
use File::Spec::Functions;
use Module::Dependency::Indexer;
BEGIN { plan tests => 11; }
my $dir = cwd();
if (-d 't') {
$dir = catfile( $dir, 't');
}
my $index = catfile( $dir, 'dbindext.dat' );
my $index2 = catfile( $dir, 'dbindex2.dat' );
my $tree = catfile( $dir, 'u' );
#print "$dir\n$index\n$tree\n";
ok( $dir );
ok( $index );
ok( $tree );
if ( -f $index ) { unlink($index); }
if ( -f $index2 ) { unlink($index2); }
ok( ! -f $index );
ok( ! -f $index2 );
ok( Module::Dependency::Indexer::setIndex( $index ) );
ok( Module::Dependency::Indexer::makeIndex( $tree ) );
ok( -f $index );
ok( Module::Dependency::Indexer::setIndex( $index2 ) );
ok( Module::Dependency::Indexer::makeIndex( $tree ) );
ok( -f $index2 );