trunk/t/Sack-Digest.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	dpavlin	33	#!/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