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