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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
# -*- tcl -*-
# md5.test: tests for the md5 commands
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. No output means no errors were found.
#
# Copyright (c) 2001 by ActiveState Tool Corp.
# All rights reserved.
# -------------------------------------------------------------------------
source [file join \
[file dirname [file dirname [file join [pwd] [info script]]]] \
devtools testutilities.tcl]
testsNeedTcl 8.5
testsNeedTcltest 1.0
testing {
useLocal md5.tcl md5
}
# -------------------------------------------------------------------------
if {[catch {package present Trf}] || [catch {::md5 -- test}]} {
puts "> pure Tcl"
} else {
puts "> Trf based"
}
# -------------------------------------------------------------------------
test md5-1.0 {md5} {
catch {::md5::md5} result
set result
} [tcltest::wrongNumArgs "::md5::md5" "msg" 0]
test md5-1.1 {md5} {
catch {::md5::hmac} result
set result
} [tcltest::wrongNumArgs "::md5::hmac" "key text" 0]
test md5-1.2 {md5} {
catch {::md5::hmac key} result
set result
} [tcltest::wrongNumArgs "::md5::hmac" "key text" 1]
foreach {n msg expected} {
1 ""
"d41d8cd98f00b204e9800998ecf8427e"
2 "a"
"0cc175b9c0f1b6a831c399e269772661"
3 "abc"
"900150983cd24fb0d6963f7d28e17f72"
4 "message digest"
"f96b697d7cb7938d525a2f31aaf161d0"
5 "abcdefghijklmnopqrstuvwxyz"
"c3fcd3d76192e4007dfb496cca67e13b"
6 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
"d174ab98d277d9f5a5611c2c9f419d9f"
7 "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
"57edf4a22be3c955ac49da2e2107b67a"
} {
test md5-2.$n {md5} {
::md5::md5 $msg
} $expected ; # {}
}
foreach {n key text expected} {
1 "" "" "74e6f7298a9c2d168935f58c001bad88"
2 "foo" "hello" "ef2ac8901530db30aa56929adfe5e13b"
3 "bar" "world" "dfc05594b019ed51535922a1295446e8"
4 "key" "text" "d0ca6177c61c975fd2f8c07d8c6528c6"
5 "md5" "hmac" "d189f362daf86a5c8e14ba4aba91b260"
6 "hmac" "md5" "480343cf0f2d5931ec4923e81059fb84"
7 "md5" "md5" "92c5fb986e345f21f181047ab939ec77"
8 "hmac" "hmac" "08abbe58a55219789e3eede153808a56"
9 "01234567abcdefgh01234567abcdefgh01234567abcdefgh01234567abcdefgh==" "hello world"
"cf0237466f9b3c773858a1892b474c9e"
} {
test md5-3.$n {hmac} {
::md5::hmac $key $text
} $expected ; # {}
}
# -------------------------------------------------------------------------
set text "\uFFFE\u0000\u0001\u0002"
set hash "d1d965486ba8bcf34d3f5a1e00c7cbf1"
test md5-5.0 "md5 unicode hash \"$text\"" -body {
::md5::md5 [encoding convertto utf-8 $text]
} -result $hash ; # {}
unset text hash
# -------------------------------------------------------------------------
testsuiteCleanup
|
