xref: /openbsd-src/gnu/usr.bin/perl/cpan/Digest-SHA/t/inheritance.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
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