trunk/t/Sack-Digest-BerkeleyDB.t

#!/usr/bin/perl

use Test::More tests => 4;

use lib 'lib';

BEGIN {
        use_ok( 'Sack::Digest' );
}

ok( my $o = Sack::Digest->open( 0 ), 'open' );

ok( my $nr = Sack::Digest->digest( 'foobar' ), 'digest' );
ok( $nr =~ m/^\d+$/, 'int' );

1	#!/usr/bin/perl
2
3	use Test::More tests => 4;
4
5	use lib 'lib';
6
7	BEGIN {
8	use_ok( 'Sack::Digest' );
9	}
10
11	ok( my $o = Sack::Digest->open( 0 ), 'open' );
12
13	ok( my $nr = Sack::Digest->digest( 'foobar' ), 'digest' );
14	ok( $nr =~ m/^\d+$/, 'int' );
15