Basic OO functions for perl lib

[blerg.git] / lib / perl / Blerg-Database / t / Blerg-Database.t

diff --git a/lib/perl/Blerg-Database/t/Blerg-Database.t b/lib/perl/Blerg-Database/t/Blerg-Database.t
index fba8885..32cff92 100644 (file)
--- a/lib/perl/Blerg-Database/t/Blerg-Database.t
+++ b/lib/perl/Blerg-Database/t/Blerg-Database.t
@@ -9,7 +9,7 @@ use File::Path qw/remove_tree/;
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 18;
 BEGIN { use_ok('Blerg::Database') };
 
 #########################
@@ -70,3 +70,12 @@ ok( Blerg::Database::_close($ptr) );
 # Test existence
 ok( Blerg::Database::exists($test_user) );
 
+# Perl OO interface
+my $blerg = Blerg::Database->open_existing('nonexistent');
+ok( not defined $blerg );
+$blerg = Blerg::Database->open($test_user);
+ok( defined $blerg );
+ok( $blerg->fetch(0) eq $data );
+ok( $blerg->store($data) == 4 );
+ok( $blerg->fetch(4) eq $data );
+