lib/perl/Blerg-Database/t/database.t

   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'
   3
   4 #########################
   5
   6 # change 'tests => 1' to 'tests => last_test_to_print';
   7
   8 use File::Path qw/remove_tree/;
   9 use strict;
  10 use warnings;
  11
  12 use Test::More tests => 25;
  13 BEGIN { use_ok('Blerg::Database') };
  14
  15 #########################
  16
  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.
  19
  20 # Setup
  21 my $test_user = 'barfy';
  22 my $test_dir = "/tmp/blerg_test_$$";
  23 mkdir $test_dir;
  24 chdir $test_dir;
  25 mkdir 'data';
  26 mkdir 'hash_tags';
  27 mkdir 'ref_tags';
  28 my ($ptr, @list, $n);
  29 $n = 0;
  30
  31 ### C interface
  32
  33 # Open a database
  34 $ptr = Blerg::Database::_open($test_user);
  35 ok( ref $ptr eq 'struct blergPtr' );
  36
  37 # Store
  38 my $data = "Hello!";
  39 my $t0 = time;
  40 ok( Blerg::Database::_store($ptr, $data) == $n );
  41
  42 # Check internal database
  43 open DATA, "data/$test_user/data0";
  44 my $check_data = <DATA>;
  45 close DATA;
  46 ok( $check_data eq $data );
  47
  48 # Fetch
  49 ok( Blerg::Database::_fetch($ptr, $n) eq $data );
  50 ok( not defined Blerg::Database::_fetch($ptr, $n + 1) );
  51
  52 # Get time
  53 my $t = Blerg::Database::_get_timestamp($ptr, $n);
  54 ok( $t0 - $t <= 1.0 );
  55
  56 # Test tags
  57 Blerg::Database::_store($ptr, "This is data A #data");
  58 Blerg::Database::_store($ptr, "This is data B #data");
  59 Blerg::Database::_store($ptr, "This is data C #data");
  60 $n += 3;
  61
  62 @list = Blerg::Database::tag_list('#data', 0, 1);
  63 ok( @list == 3 );
  64 ok( $list[0]->{author} eq $test_user );
  65 ok( $list[0]->{record} == $n );
  66
  67 # Test mute
  68 ok( Blerg::Database::_set_mute($ptr, 1) );
  69 ok( Blerg::Database::_get_mute($ptr) == 1 );
  70 Blerg::Database::_store($ptr, "Testing more #data");
  71 @list = Blerg::Database::tag_list('#data', 0, 1);
  72 ok( @list == 3 );
  73 ok( Blerg::Database::_set_mute($ptr, 0) );
  74 ok( Blerg::Database::_get_mute($ptr) == 0 );
  75 Blerg::Database::_store($ptr, "Testing more #data");
  76 @list = Blerg::Database::tag_list('#data', 0, 1);
  77 ok( @list == 4 );
  78 $n += 2;
  79
  80 # Count
  81 my $count = Blerg::Database::_get_record_count($ptr);
  82 ok( $count == $n + 1 );
  83
  84 # Close database
  85 ok( Blerg::Database::_close($ptr) );
  86
  87 # Test existence
  88 ok( Blerg::Database::exists($test_user) );
  89
  90
  91 ### Perl OO interface
  92
  93 # Open a nonexistent database
  94 my $blerg = Blerg::Database->open_existing('nonexistent');
  95 ok( not defined $blerg );
  96
  97 # Open a database
  98 $blerg = Blerg::Database->open($test_user);
  99 ok( defined $blerg );
 100 ok( ref $blerg->{ptr} eq 'struct blergPtr');
 101
 102 # Fetch/Store
 103 ok( $blerg->fetch(0) eq $data );
 104 ok( $blerg->store($data) == $n + 1 );
 105 $n++;
 106 ok( $blerg->fetch($n) eq $data );
 107
 108 # Close database
 109 $blerg->close;
 110
 111 END {
 112         chdir;
 113         remove_tree "/tmp/blerg_test_$$";
 114 }