trunk/t/Sack-Digest-BerkeleyDB.t

#!/usr/bin/perl

use Test::More tests => 14;

use lib 'lib';

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

ok( Sack::Digest->clean, 'clean' );

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

foreach my $full ( 'foo', 'bar', 'baz' ) {

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

        cmp_ok( Sack::Digest->from_int( $nr ), 'eq', $full, "from_int $nr" );

}

cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );

ok( Sack::Digest->close, 'close' );
1	#!/usr/bin/perl
2
3	use Test::More tests => 14;
4
5	use lib 'lib';
6
7	BEGIN {
8	use_ok( 'Sack::Digest' );
9	}
10
11	ok( Sack::Digest->clean, 'clean' );
12
13	ok( my $o = Sack::Digest->open( 0 ), 'open' );
14
15	foreach my $full ( 'foo', 'bar', 'baz' ) {
16
17	ok( my $nr = Sack::Digest->to_int( $full ), "to_int $full" );
18	ok( $nr =~ m/^\d+$/, 'int' );
19
20	cmp_ok( Sack::Digest->from_int( $nr ), 'eq', $full, "from_int $nr" );
21
22	}
23
24	cmp_ok( Sack::Digest->from_int( 42 ), '==', 42, 'from_int missing' );
25
26	ok( Sack::Digest->close, 'close' );