view release on metacpan or  search on metacpan

t/TestCogBase.pm  view on Meta::CPAN

package t::TestCogBase;
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);
}