1# Adapted from script by Mark Lawrence (ref. rt.cpan.org #94830)
2
3use strict;
4use Digest::SHA qw(sha1);
5
6package P1;
7use vars qw(@ISA);
8@ISA = ("Digest::SHA");
9
10package main;
11
12print "1..1\n";
13
14my $data = 'a';
15my $d = P1->new;
16print "not " unless $d->add($data)->digest eq sha1($data);
17print "ok 1\n";
18