-# Subscription
-my ($ptra, $ptrb);
-$ptra = Blerg::Database::_open("a");
-$ptrb = Blerg::Database::_open("b");
-ok( Blerg::Database::subscription_add("a", "b") == 1 );
-Blerg::Database::_store($ptrb, "Hello, A!");
-@list = Blerg::Database::_subscription_list("a", 0, 1);
-ok( @list == 1 );
-ok( $list[0]->{author} eq 'b' );
-ok( $list[0]->{record} == 0 );
-ok( Blerg::Database::_fetch($ptrb, $list[0]->{record}) eq 'Hello, A!' );
-