Tests for module 'unicase/u8-totitle'.
[pspp] / tests / test-gc-sha1.c
1 /*
2  * Copyright (C) 2005 Free Software Foundation
3  * Written by Simon Josefsson
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2, or (at your option)
8  * any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18  * 02110-1301, USA.  */
19
20 #include <config.h>
21
22 #include <stdio.h>
23 #include <string.h>
24 #include "gc.h"
25
26 int
27 main (int argc, char *argv[])
28 {
29   Gc_rc rc;
30   gc_hash_handle h;
31
32   rc = gc_init ();
33   if (rc != GC_OK)
34     {
35       printf ("gc_init() failed\n");
36       return 1;
37     }
38
39   {
40     char *in = "abcdefgh";
41     size_t inlen = strlen (in);
42     char *expect = "\x42\x5a\xf1\x2a\x07\x43\x50\x2b"
43       "\x32\x2e\x93\xa0\x15\xbc\xf8\x68\xe3\x24\xd5\x6a";
44     char out[20];
45     const char *p;
46
47     if (gc_sha1 (in, inlen, out) != 0)
48       {
49         printf ("gc_sha1 call failed\n");
50         return 1;
51       }
52
53     if (memcmp (out, expect, 20) != 0)
54       {
55         size_t i;
56         printf ("sha1 mismatch. expected:\n");
57         for (i = 0; i < 16; i++)
58           printf ("%02x ", expect[i] & 0xFF);
59         printf ("\ncomputed:\n");
60         for (i = 0; i < 16; i++)
61           printf ("%02x ", out[i] & 0xFF);
62         printf ("\n");
63         return 1;
64       }
65
66     rc = gc_hash_buffer (GC_SHA1, "abcdefgh", 8, out);
67     if (rc != GC_OK)
68       {
69         printf ("gc_hash_buffer(sha1) call failed: %d\n", rc);
70         return 1;
71       }
72
73     if (memcmp (out, expect, 20) != 0)
74       {
75         size_t i;
76         printf ("sha1' mismatch. expected:\n");
77         for (i = 0; i < 16; i++)
78           printf ("%02x ", expect[i] & 0xFF);
79         printf ("\ncomputed:\n");
80         for (i = 0; i < 16; i++)
81           printf ("%02x ", out[i] & 0xFF);
82         printf ("\n");
83         return 1;
84       }
85
86     if (gc_hash_digest_length (GC_SHA1) != 20)
87       {
88         printf ("gc_hash_digest_length (GC_SHA1) failed\n");
89         return 1;
90       }
91
92     if ((rc = gc_hash_open (GC_SHA1, 0, &h)) != GC_OK)
93       {
94         printf ("gc_hash_open(GC_SHA1) failed (%d)\n", rc);
95         return 1;
96       }
97
98     gc_hash_write (h, inlen, in);
99
100     p = gc_hash_read (h);
101
102     if (!p)
103       {
104         printf ("gc_hash_read failed\n");
105         return 1;
106       }
107
108     if (memcmp (p, expect, 20) != 0)
109       {
110         size_t i;
111         printf ("sha1 1 mismatch. expected:\n");
112         for (i = 0; i < 20; i++)
113           printf ("%02x ", expect[i] & 0xFF);
114         printf ("\ncomputed:\n");
115         for (i = 0; i < 20; i++)
116           printf ("%02x ", p[i] & 0xFF);
117         printf ("\n");
118         return 1;
119       }
120
121     gc_hash_close (h);
122   }
123
124   gc_done ();
125
126   return 0;
127 }