1 use File::Path qw/remove_tree/;
5 use Test::More tests => 10;
6 BEGIN { use_ok('Blerg::Database') };
9 my $test_dir = "/tmp/blerg_test_$$";
15 my ($ptra, $ptrb, @list);
18 $ptra = Blerg::Database::_open("a");
19 $ptrb = Blerg::Database::_open("b");
20 ok( Blerg::Database::subscription_add("a", "b") == 1 );
21 Blerg::Database::_store($ptrb, "Hello, A!");
22 @list = Blerg::Database::_subscription_list("a", 0, 1);
24 ok( $list[0]->{author} eq 'b' );
25 ok( $list[0]->{record} == 0 );
26 ok( Blerg::Database::_fetch($ptrb, $list[0]->{record}) eq 'Hello, A!' );
28 ### Subscription OO-style
29 $ptra = Blerg::Database->open_existing('a');
30 $ptrb = Blerg::Database->open_existing('b');
31 @list = $ptra->subscription_list;
33 ok( $list[0]->{author} eq 'b' );
34 ok( $list[0]->{record} == 0 );
35 ok( $ptrb->fetch($list[0]->{record}) eq 'Hello, A!' );
41 remove_tree "/tmp/blerg_test_$$";