1 # Before 'make install' is performed this script should be runnable with
2 # 'make test'. After 'make install' it should work as 'perl Blerg-Database.t'
4 #########################
6 # change 'tests => 1' to 'tests => last_test_to_print';
8 use File::Path qw/remove_tree/;
12 use Test::More tests => 30;
13 BEGIN { use_ok('Blerg::Database') };
15 #########################
17 # Insert your test code below, the Test::More module is use()ed here so read
18 # its man page ( perldoc Test::More ) for help writing this test script.
21 my $test_user = 'barfy';
22 my $test_dir = "/tmp/blerg_test_$$";
29 $ENV{BLERG_PATH} = $test_dir;
30 ok( Blerg::Database::init() );
38 $ptr = Blerg::Database::_open($test_user);
39 ok( ref $ptr eq 'struct blergPtr' );
44 ok( Blerg::Database::_store($ptr, $data) == $n );
46 # Check internal database
47 open DATA, "data/$test_user/data0";
48 my $check_data = <DATA>;
50 ok( $check_data eq $data );
53 ok( Blerg::Database::_fetch($ptr, $n) eq $data );
54 ok( not defined Blerg::Database::_fetch($ptr, $n + 1) );
57 my $t = Blerg::Database::_get_timestamp($ptr, $n);
58 ok( $t0 - $t <= 1.0 );
61 Blerg::Database::_store($ptr, "This is data A #data");
62 Blerg::Database::_store($ptr, "This is data B #data");
63 Blerg::Database::_store($ptr, "This is data C #data");
66 @list = Blerg::Database::tag_list('#data', 0, 1);
68 ok( $list[0]->{author} eq $test_user );
69 ok( $list[0]->{record} == $n );
72 ok( Blerg::Database::_set_status($ptr, Blerg::Database::BLERGSTATUS_MUTED, 1) );
73 ok( Blerg::Database::_get_status($ptr, Blerg::Database::BLERGSTATUS_MUTED) == 1 );
74 Blerg::Database::_store($ptr, "Testing more #data");
75 @list = Blerg::Database::tag_list('#data', 0, 1);
77 ok( Blerg::Database::_set_status($ptr, Blerg::Database::BLERGSTATUS_MUTED, 0) );
78 ok( Blerg::Database::_get_status($ptr, Blerg::Database::BLERGSTATUS_MUTED) == 0 );
79 Blerg::Database::_store($ptr, "Testing more #data");
80 @list = Blerg::Database::tag_list('#data', 0, 1);
85 my $count = Blerg::Database::_get_record_count($ptr);
86 ok( $count == $n + 1 );
89 ok( Blerg::Database::_close($ptr) );
92 ok( Blerg::Database::exists($test_user) );
97 # Open a nonexistent database
98 my $blerg = Blerg::Database->open_existing('nonexistent');
99 ok( not defined $blerg );
102 $blerg = Blerg::Database->open($test_user);
103 ok( defined $blerg );
104 ok( ref $blerg->{ptr} eq 'struct blergPtr');
107 ok( $blerg->fetch(0) eq $data );
108 ok( $blerg->store($data) == $n + 1 );
110 ok( $blerg->fetch($n) eq $data );
113 ok( $blerg->mute(1) );
114 ok( $blerg->mute == 1 );
115 ok( $blerg->mute(0) );
116 ok( $blerg->mute == 0 );
123 remove_tree "/tmp/blerg_test_$$";