03store_deep.t

Revision 53, 454 bytes (checked in by bkuhn, 10 months ago)
Added SFLC's internally developed tim bot released under AGPLv3

Line
1	#!perl
2	use warnings;
3	use strict;
4	use Test::More no_plan => 1;
5
6	use Bot::BasicBot::Pluggable::Store;
7	use Bot::BasicBot::Pluggable::Store::Deep;
8	unlink('t/deep.db') if (-e 't/deep.db');
9	ok( my $store = Bot::BasicBot::Pluggable::Store::Deep->new( file => 't/deep.db' ) );
10	is( $store->keys('test'), 0, "no keys" );
11	ok( $store->set("test", "foo", "bar"), "set foo" );
12	is( $store->keys('test'), 1, "1 keys" );
13	is( $store->get("test", "foo"), "bar", "is set");

Note: See TracBrowser for help on using the browser.

Software Freedom Law Center