X-Git-Url: http://git.bytex64.net/?a=blobdiff_plain;f=lib%2Fperl%2FBlerg-Database%2Ft%2Fdatabase.t;fp=lib%2Fperl%2FBlerg-Database%2Ft%2FBlerg-Database.t;h=6faed8efaf6cf1f193fe7e74c1166e0b9d5f82a2;hb=4a1ef10deb4ba66c2008a21865b9ed07a7e88def;hp=4208375d8f1c8042c8d6a2f6af72aa5f5846104d;hpb=0633c5ed9ca5302ba9ff0eb9050bc23f1173e38a;p=blerg.git

diff --git a/lib/perl/Blerg-Database/t/Blerg-Database.t b/lib/perl/Blerg-Database/t/database.t
similarity index 76%
rename from lib/perl/Blerg-Database/t/Blerg-Database.t
rename to lib/perl/Blerg-Database/t/database.t
index 4208375..6faed8e 100644
--- a/lib/perl/Blerg-Database/t/Blerg-Database.t
+++ b/lib/perl/Blerg-Database/t/database.t
@@ -9,7 +9,7 @@ use File::Path qw/remove_tree/;
 use strict;
 use warnings;
 
-use Test::More tests => 34;
+use Test::More tests => 25;
 BEGIN { use_ok('Blerg::Database') };
 
 #########################
@@ -28,7 +28,8 @@ mkdir 'ref_tags';
 my ($ptr, @list, $n);
 $n = 0;
 
-### C interfaces
+### C interface
+
 # Open a database
 $ptr = Blerg::Database::_open($test_user);
 ok( ref $ptr eq 'struct blergPtr' );
@@ -52,18 +53,6 @@ ok( not defined Blerg::Database::_fetch($ptr, $n + 1) );
 my $t = Blerg::Database::_get_timestamp($ptr, $n);
 ok( $t0 - $t <= 1.0 );
 
-# 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!' );
-
 # Test tags
 Blerg::Database::_store($ptr, "This is data A #data");
 Blerg::Database::_store($ptr, "This is data B #data");
@@ -99,28 +88,25 @@ ok( Blerg::Database::_close($ptr) );
 ok( Blerg::Database::exists($test_user) );
 
 
-# Perl OO interface
+### Perl OO interface
+
+# Open a nonexistent database
 my $blerg = Blerg::Database->open_existing('nonexistent');
 ok( not defined $blerg );
+
+# Open a database
 $blerg = Blerg::Database->open($test_user);
 ok( defined $blerg );
 ok( ref $blerg->{ptr} eq 'struct blergPtr');
+
+# Fetch/Store
 ok( $blerg->fetch(0) eq $data );
 ok( $blerg->store($data) == $n + 1 );
 $n++;
 ok( $blerg->fetch($n) eq $data );
-$blerg->close;
 
-# Subscription OO-style
-$ptra = Blerg::Database->open_existing('a');
-$ptrb = Blerg::Database->open_existing('b');
-@list = $ptra->subscription_list;
-ok( @list == 1 );
-ok( $list[0]->{author} eq 'b' );
-ok( $list[0]->{record} == 0 );
-ok( $ptrb->fetch($list[0]->{record}) eq 'Hello, A!' );
-$ptrb->close;
-$ptra->close;
+# Close database
+$blerg->close;
 
 END {
 	chdir;