ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/OpenSSL/t/01_Digest.t
Revision: 1.1
Committed: Sat Oct 27 01:53:24 2001 UTC (24 years, 11 months ago) by stefan
Content type: application/x-troff
Branch: MAIN
CVS Tags: BEFORE_5_8_REGEX_FIX, HEAD
Log Message: 
*** empty log message ***

File Contents

# User Rev Content
1 stefan 1.1 # Before `make install' is performed this script should be runnable with
2     # `make test'. After `make install' it should work as `perl test.pl'
3    
4     #########################
5    
6     # change 'tests => 10' to 'tests => last_test_to_print';
7    
8     use Test;
9     BEGIN { plan tests => 13 };
10     use OpenSSL::Digest qw(digest_hex sha1_hex new_digest);
11     ok(1);
12    
13     ok((OpenSSL::Digest::sha1_hex("hallo\n") eq '56ac1c08fa5479fd57c4a5c65861c4ed3ed93ff8') ? 1 :0);
14     ok((sha1_hex("hallo\n") eq '56ac1c08fa5479fd57c4a5c65861c4ed3ed93ff8') ? 1 :0);
15     ok((OpenSSL::Digest::md5_hex("hallo\n") eq 'aee97cb3ad288ef0add6c6b5b5fae48a') ? 1 :0);
16     ok((OpenSSL::Digest::md2_hex("hallo\n") eq '0b5a59754c4ba601ff1234aba049fd0b') ? 1 :0);
17     ok((OpenSSL::Digest::md4_hex("hallo\n") eq 'bf3d4821a7c02a3bfa9a423c057fc761') ? 1 :0);
18     ok((OpenSSL::Digest::sha_hex("hallo\n") eq '76b9078ec3698799870bfee2ac7f803dd0dc8ad2') ? 1 :0);
19     ok((OpenSSL::Digest::mdc2_hex("hallo\n") eq '17893a33039f9273b0d15d9c97c2073c') ? 1 :0);
20     ok((OpenSSL::Digest::ripemd160_hex("hallo\n") eq '84950d43051dee712a1de55f13e2cf250ad9ace4') ? 1 :0);
21     ok((digest_hex('sha1', 'ha', "llo\n") eq '56ac1c08fa5479fd57c4a5c65861c4ed3ed93ff8') ? 1 :0);
22     ok((digest_hex('sha1', '') eq 'da39a3ee5e6b4b0d3255bfef95601890afd80709') ? 1 :0);
23     ok((digest_hex('sha1') eq 'da39a3ee5e6b4b0d3255bfef95601890afd80709') ? 1 :0);
24    
25     $ctx = new_digest('sha1');
26     $ctx->update('h');
27     $ctx->update("allo\n");
28     ok(($ctx->final_hex eq '56ac1c08fa5479fd57c4a5c65861c4ed3ed93ff8') ? 1 :0);