package Test::Bot::BasicBot::Pluggable::Store;
use base qw(Test::Builder::Module);

our $VERSION = '0.1';

our @EXPORT = qw(store_ok);

sub store_ok {
	my ($store_class,$store_args) = @_;
	my $test = __PACKAGE__->builder;
	$test->plan(tests => 12);
	$test->ok(eval "require Bot::BasicBot::Pluggable::Store::$store_class",'loading store class');
	$test->ok(my $store = "Bot::BasicBot::Pluggable::Store::$store_class"->new(%{$store_args}),'creating store object');
	$test->is_num( scalar $store->keys('test'), 0 , 'no keys set initially' );
	$test->ok( $store->set("test", "foo", "bar"), "set foo to bar" );
	$test->is_num( scalar $store->keys('test'), 1, "storage namespace has 1 key" );
	$test->is_eq( $store->get("test", "foo"), "bar", "foo is set to bar");
	$test->ok( $store->set("test", "user_foo", "bar"), "set user_foo also to bar" );
	$test->is_num( scalar $store->keys('test'), 2, "storage namespace has 2 keys" );
	$test->is_num( scalar $store->keys('test', res => [ '^user' ] ), 1, "storage namespace has one key matching ^user" );
	$test->ok( $store->unset("test","foo"), "unset key");
	$test->is_eq( $store->get('test','foo'),undef,"unset has worked, no key namned foo left");
	$test->is_eq( $store->namespaces(),'test',"return namespaces");
}

1;

__END__

=head1 NAME

Test::Bot::BasicBot::Pluggable::Store - basics tests for Bot::BasicBot::Pluggable storage classes

=head1 SYNOPSIS

  store_ok( 'Memory' );
  store_ok( 'Deep', { file => 'deep.db' });

=head1 DESCRIPTION

This modules collects some general functions to test storage module
sfor Bot::BasicBot::Pluggable. In the moment we just export the
basic store_ok.

=head1 FUNCTIONS

=head2 store_ok

This functions justs tests some basic behaviour every storage module
should provide, like store creation, get and set. You can't use it
directly with Test::More as we harcode the number of tests to nine
in the moment. (Man, i'm so excited about nested tap streams in the
newest development release of Test::Simple)

=head1 AUTHOR

Mario Domgoergen <mdom@cpan.org>

This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut