t/15_digest.t

   1 ##
   2 # DBM::Deep Test
   3 ##
   4 use strict;
   5 use Test::More tests => 14;
   6 use t::common qw( new_fh );
   7
   8 use_ok( 'DBM::Deep' );
   9
  10 my ($fh, $filename) = new_fh();
  11
  12 my $salt = 38473827;
  13
  14 my $db = new DBM::Deep(
  15         file => $filename,
  16     digest => \&my_digest,
  17     hash_size => 8,
  18 );
  19
  20 ##
  21 # put/get key
  22 ##
  23 $db->{key1} = "value1";
  24 ok( $db->{key1} eq "value1" );
  25
  26 $db->put("key2", "value2");
  27 ok( $db->get("key2") eq "value2" );
  28
  29 ##
  30 # key exists
  31 ##
  32 ok( $db->exists("key1") );
  33 ok( exists $db->{key2} );
  34
  35 ##
  36 # count keys
  37 ##
  38 ok( scalar keys %$db == 2 );
  39
  40 ##
  41 # step through keys
  42 ##
  43 my $temphash = {};
  44 while ( my ($key, $value) = each %$db ) {
  45         $temphash->{$key} = $value;
  46 }
  47
  48 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
  49
  50 $temphash = {};
  51 my $key = $db->first_key();
  52 while ($key) {
  53         $temphash->{$key} = $db->get($key);
  54         $key = $db->next_key($key);
  55 }
  56
  57 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
  58
  59 ##
  60 # delete keys
  61 ##
  62 ok( delete $db->{key1} );
  63 ok( $db->delete("key2") );
  64
  65 ok( scalar keys %$db == 0 );
  66
  67 ##
  68 # delete all keys
  69 ##
  70 $db->put("another", "value");
  71 $db->clear();
  72
  73 ok( scalar keys %$db == 0 );
  74
  75 ##
  76 # replace key
  77 ##
  78 $db->put("key1", "value1");
  79 $db->put("key1", "value2");
  80
  81 ok( $db->get("key1") eq "value2" );
  82
  83 $db->put("key1", "value222222222222222222222222");
  84
  85 ok( $db->get("key1") eq "value222222222222222222222222" );
  86
  87 sub my_digest {
  88         ##
  89         # Warning: This digest function is for testing ONLY
  90         # It is NOT intended for actual use
  91         ##
  92         my $key = shift;
  93         my $num = $salt;
  94
  95         for (my $k=0; $k<length($key); $k++) {
  96                 $num += ord( substr($key, $k, 1) );
  97         }
  98
  99         return sprintf("%00000008d", $num);
 100 }