view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/CogBase/Factory.pm
lib/CogBase/Index.pm
lib/CogBase/Node.pm
lib/CogBase/Schema.pm
Makefile.PL
MANIFEST			This list of files
META.yml
README
t/00-load.t
t/synopsis.pl
t/test-cogids
t/test.t
t/TestCogBase.pm

t/TestCogBase.pm  view on Meta::CPAN

use Test::Base -base;

use CogBase::Database;
use CogBase;
use File::Path qw(rmtree);

our @EXPORT = qw(create_database);

{
    no warnings 'once';
    open $CogBase::TEST_COGBASE_IDS, 't/test-cogids'
      or die "Can't open t/test-cogids for input";
}

sub create_database {
    my $db_path = shift;
    rmtree($db_path);
    CogBase::Database->create($db_path);
}