view release on metacpan or  search on metacpan

t/07_plugins/04_rdb_database.t  view on Meta::CPAN

use Test::More tests => 22;
use strict; use warnings;

use Fcntl ':flock';
use Try::Tiny;
use Path::Tiny;

BEGIN {
  use_ok( 'Bot::Cobalt::Conf' );
  use_ok( 'Bot::Cobalt::Core' );
  use_ok( 'Bot::Cobalt::Plugin::RDB::Database' );
}

my $tempdir = Path::Tiny->tempdir(CLEANUP => 1);
my $etcdir  = path( 'share/etc' );

my $cfg = new_ok( 'Bot::Cobalt::Conf' => [
    etc => $etcdir,
  ],
);

my $core = Bot::Cobalt::Core->instance(
  cfg => $cfg,
  var => $tempdir,
);

my $rdb = new_ok( 'Bot::Cobalt::Plugin::RDB::Database' => [
    RDBDir => $tempdir,
    CacheKeys => 5,
  ]
);

ok( $rdb->createdb('test'), 'createdb()' );

ok( ! $rdb->get_keys('test'), 'empty db' );

my $newkey;

my $item_ref = [ 'things', time(), 'stuff' ];

ok( $newkey = $rdb->put('test', $item_ref ), 'Add key' );

is_deeply( $rdb->get('test', $newkey), $item_ref, 'Retrieve key' );

is_deeply( $rdb->random('test'), $item_ref, 'random()' );

is( ($rdb->get_keys('test'))[0], $newkey, 'get_keys()' );
cmp_ok( scalar $rdb->get_keys('test'), '==', 1, 'scalar get_keys()' );

ok( $rdb->del('test', $newkey), 'Del key' );

try { 
  $rdb->get('test', $newkey)
} catch {
  isa_ok( $_, 'Bot::Cobalt::Error' )
};

undef $newkey;

my $i;
for (1 .. 10) {
  ++$i;
  my $this_ref = [ 'item'.$i, 1, 'stuff'];
  $rdb->put('test', $this_ref)
}