1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
+
+
+
|
# Auto generated from "SHA3-224.txt"
package require tls
package require tcltest
tcltest::testConstraint SHA3-224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]
tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]
tcltest::test Hash_SHA3-224-1.1 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data ""} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7
tcltest::test Hash_SHA3-224-1.2 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data [binary decode hex [string repeat a3 200]]} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result 9376816aba503f72f96ce7eb65ac095deee3be4bf9bbc2a1cb7e11e0
tcltest::test Hash_SHA3-224-1.3 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data "abc"} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result e642824c3f8cf24ad09234ee7d3c766fc9a3a5168d0c94ad73b46fdf
tcltest::test Hash_SHA3-224-1.4 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result 8a24108b154ada21c9fd5574494479ba5c7e7ab76ef264ead0fcce33
tcltest::test Hash_SHA3-224-1.5 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result 543e6868e1666c1a643630df77367ae5a62a85070a51c14cbf665cbc
tcltest::test Hash_SHA3-224-1.6 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data [string repeat "a" 1000000]} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result d69335b93325192e516a912e6d19a15cb51c6ed5c15243e7a7fd653c
tcltest::test Hash_SHA3-224-1.7 {SHA3-224} \
-constraints SHA3-224 \
-constraints SHA3_224 \
-setup {set data [string repeat "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmno" 16777216]} \
-body {tls::digest -digest SHA3-224 -data $data} \
-match exact -result c6d66e77ae289566afb2ce39277752d6da2a3c46010f1e0a0970ff60
# Cleanup
::tcltest::cleanupTests
return
|