#!/usr/local/bin/perl -w =head1 NAME 01db_filedb_sdbm.t - testing of VCP::DB_File::sdbm =cut use strict; use Carp; use Test; use File::Path; use VCP::Debug qw( enable_debug ); use VCP::DB_File::sdbm; enable_debug( split /,/, $ENV{VCPDEBUG} ) if defined $ENV{VCPDEBUG} ; my $t = -d 't' ? 't/' : '' ; my $db_loc = "${t}01db_filedb_sdbm"; rmtree [$db_loc] or die "$! unlinking $db_loc" if -e $db_loc; my $db; my @tests = ( sub { $db = VCP::DB_File::sdbm->new( StoreLoc => $db_loc, TableName => "foo" ); ok $db; }, sub { ok ! -e $db->store_loc; }, sub { $db->open_db; ok scalar glob $db->store_loc . "/*db*"; }, sub { $db->set( [ "a" ] => qw( foo bar ) ); ok join( ",", $db->get( [ "a" ] ) ), "foo,bar"; }, sub { $db->close_db; ok scalar glob $db->store_loc . "/db*"; }, sub { $db->open_db; ok scalar glob $db->store_loc . "/db*"; }, sub { ok join( ",", $db->get( [ "a" ] ) ), "foo,bar"; }, sub { $db->delete_db; ok ! -e $db->store_loc; }, sub { $db->open_db; ok scalar glob $db->store_loc . "/db*"; }, sub { $db->delete_db; ok ! -e $db->store_loc; }, sub { rmtree [$db_loc] or warn "$! unlinking $db_loc" if -e $db_loc; ok 1; }, ) ; plan tests => scalar( @tests ) ; $_->() for @tests ;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#4 | 4970 | Barrie Slaymaker | - Allow sdbm files to handle large keys. | ||
#3 | 3155 | Barrie Slaymaker |
Convert to logging using VCP::Logger to reduce stdout/err spew. Simplify & speed up debugging quite a bit. Provide more verbose information in logs. Print to STDERR progress reports to keep users from wondering what's going on. Breaks test; halfway through upgrading run3() to an inline function for speed and for VCP specific features. |
||
#2 | 2802 | John Fetkovich |
Added a source_repo_id to each revision, and repo_id to each Source and Dest. The repo_ids include repository type (cvs,p4,revml,vss,...) and the repo_server fields. Changed the $self->...->set() and $self->...->get() lines in VCP::Dest::* to pass in a conglomerated key value, by passing in the key as an ARRAY ref. Also various restructuring in VCP::DB.pm, VCP::DB_file.pm and VCP::DB_file::sdbm.pm related to this change. |
||
#1 | 2723 | Barrie Slaymaker | Finish generalizing DB_File, implement HeadRevsDB |