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