File: test.pl

package info (click to toggle)
libdigest-bubblebabble-perl 0.01-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 48 kB
  • ctags: 2
  • sloc: perl: 54; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 457 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# $Id: test.pl,v 1.4 2001/05/03 01:28:08 btrott Exp $

use strict;

use Test;
BEGIN { plan tests => 3 }

use vars qw( $loaded );
END { print "not ok 1\n" unless $loaded; }
use Digest::BubbleBabble qw( bubblebabble );
$loaded++;
ok($loaded);

ok(defined &bubblebabble);

my $dgst = pack "H*", "0a86c1b0428a6ce8103dfcc666519ae2918655d8";
my $bb = "xedim-kibyr-bybum-poryv-migyf-tazes-kunah-cikev-dugom-kihat-maxyx";

ok(bubblebabble( Digest => $dgst ), $bb);