Hex Artifact Content

Artifact 4b48cf365ec3faee99afb4711939d5e1ef9ca753bcc52638d7118f07a014c034:


0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64  # Auto generated
0010: 20 66 72 6f 6d 20 22 42 4c 41 4b 45 32 73 32 35   from "BLAKE2s25
0020: 36 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61  6.txt".lappend a
0030: 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64  uto_path [file d
0040: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72  irname [file dir
0050: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61  name [file dirna
0060: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  me [file dirname
0070: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64   [file join [pwd
0080: 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  ] [info script]]
0090: 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71  ]]]].package req
00a0: 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65  uire tls.package
00b0: 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74   require tcltest
00c0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43  ..tcltest::testC
00d0: 6f 6e 73 74 72 61 69 6e 74 20 42 4c 41 4b 45 32  onstraint BLAKE2
00e0: 73 32 35 36 20 5b 65 78 70 72 20 7b 5b 6c 73 65  s256 [expr {[lse
00f0: 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c  arch -nocase [tl
0100: 73 3a 3a 64 69 67 65 73 74 73 5d 20 42 4c 41 4b  s::digests] BLAK
0110: 45 32 73 32 35 36 5d 20 3e 20 2d 31 7d 5d 0a 63  E2s256] > -1}].c
0120: 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69  atch {tls::provi
0130: 64 65 72 20 6c 65 67 61 63 79 7d 0a 0a 74 63 6c  der legacy}..tcl
0140: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0150: 42 4c 41 4b 45 32 73 32 35 36 2d 31 2e 31 20 7b  BLAKE2s256-1.1 {
0160: 42 4c 41 4b 45 32 73 32 35 36 7d 20 5c 0a 09 2d  BLAKE2s256} \..-
0170: 63 6f 6e 73 74 72 61 69 6e 74 73 20 42 4c 41 4b  constraints BLAK
0180: 45 32 73 32 35 36 20 5c 0a 09 2d 73 65 74 75 70  E2s256 \..-setup
0190: 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 5c   {set data ""} \
01a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
01b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 42 4c 41  gest -digest BLA
01c0: 4b 45 32 73 32 35 36 20 2d 64 61 74 61 20 24 64  KE2s256 -data $d
01d0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
01e0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 39 32  xact -result 692
01f0: 31 37 61 33 30 37 39 39 30 38 30 39 34 65 31 31  17a3079908094e11
0200: 31 32 31 64 30 34 32 33 35 34 61 37 63 31 66 35  121d042354a7c1f5
0210: 35 62 36 34 38 32 63 61 31 61 35 31 65 31 62 32  5b6482ca1a51e1b2
0220: 35 30 64 66 64 31 65 64 30 65 65 66 39 0a 0a 74  50dfd1ed0eef9..t
0230: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0240: 68 5f 42 4c 41 4b 45 32 73 32 35 36 2d 31 2e 32  h_BLAKE2s256-1.2
0250: 20 7b 42 4c 41 4b 45 32 73 32 35 36 7d 20 5c 0a   {BLAKE2s256} \.
0260: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 42 4c  .-constraints BL
0270: 41 4b 45 32 73 32 35 36 20 5c 0a 09 2d 73 65 74  AKE2s256 \..-set
0280: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 22  up {set data "a"
0290: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
02a0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
02b0: 42 4c 41 4b 45 32 73 32 35 36 20 2d 64 61 74 61  BLAKE2s256 -data
02c0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
02d0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
02e0: 34 61 30 64 31 32 39 38 37 33 34 30 33 30 33 37  4a0d129873403037
02f0: 63 32 63 64 39 62 39 30 34 38 32 30 33 36 38 37  c2cd9b9048203687
0300: 66 36 32 33 33 66 62 36 37 33 38 39 35 36 65 30  f6233fb6738956e0
0310: 33 34 39 62 64 34 33 32 30 66 65 63 33 65 39 30  349bd4320fec3e90
0320: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0330: 48 61 73 68 5f 42 4c 41 4b 45 32 73 32 35 36 2d  Hash_BLAKE2s256-
0340: 31 2e 33 20 7b 42 4c 41 4b 45 32 73 32 35 36 7d  1.3 {BLAKE2s256}
0350: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0360: 20 42 4c 41 4b 45 32 73 32 35 36 20 5c 0a 09 2d   BLAKE2s256 \..-
0370: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0380: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20  "abc"} \..-body 
0390: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
03a0: 67 65 73 74 20 42 4c 41 4b 45 32 73 32 35 36 20  gest BLAKE2s256 
03b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
03c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
03d0: 73 75 6c 74 20 35 30 38 63 35 65 38 63 33 32 37  sult 508c5e8c327
03e0: 63 31 34 65 32 65 31 61 37 32 62 61 33 34 65 65  c14e2e1a72ba34ee
03f0: 62 34 35 32 66 33 37 34 35 38 62 32 30 39 65 64  b452f37458b209ed
0400: 36 33 61 32 39 34 64 39 39 39 62 34 63 38 36 36  63a294d999b4c866
0410: 37 35 39 38 32 0a 0a 74 63 6c 74 65 73 74 3a 3a  75982..tcltest::
0420: 74 65 73 74 20 48 61 73 68 5f 42 4c 41 4b 45 32  test Hash_BLAKE2
0430: 73 32 35 36 2d 31 2e 34 20 7b 42 4c 41 4b 45 32  s256-1.4 {BLAKE2
0440: 73 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  s256} \..-constr
0450: 61 69 6e 74 73 20 42 4c 41 4b 45 32 73 32 35 36  aints BLAKE2s256
0460: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0470: 64 61 74 61 20 22 6d 65 73 73 61 67 65 20 64 69  data "message di
0480: 67 65 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 79 20  gest"} \..-body 
0490: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
04a0: 67 65 73 74 20 42 4c 41 4b 45 32 73 32 35 36 20  gest BLAKE2s256 
04b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
04c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
04d0: 73 75 6c 74 20 66 61 31 30 61 62 37 37 35 61 63  sult fa10ab775ac
04e0: 66 38 39 62 37 64 33 63 38 61 36 65 38 32 33 64  f89b7d3c8a6e823d
04f0: 35 38 36 66 36 62 36 37 62 64 62 61 63 34 63 65  586f6b67bdbac4ce
0500: 32 30 37 66 65 31 34 35 62 37 64 33 61 63 32 35  207fe145b7d3ac25
0510: 63 64 32 38 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  cd28c..tcltest::
0520: 74 65 73 74 20 48 61 73 68 5f 42 4c 41 4b 45 32  test Hash_BLAKE2
0530: 73 32 35 36 2d 31 2e 35 20 7b 42 4c 41 4b 45 32  s256-1.5 {BLAKE2
0540: 73 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  s256} \..-constr
0550: 61 69 6e 74 73 20 42 4c 41 4b 45 32 73 32 35 36  aints BLAKE2s256
0560: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0570: 64 61 74 61 20 22 61 62 63 64 65 66 67 68 69 6a  data "abcdefghij
0580: 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a  klmnopqrstuvwxyz
0590: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  "} \..-body {tls
05a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
05b0: 20 42 4c 41 4b 45 32 73 32 35 36 20 2d 64 61 74   BLAKE2s256 -dat
05c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
05d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
05e0: 20 62 64 66 38 38 65 62 31 66 38 36 61 30 63 64   bdf88eb1f86a0cd
05f0: 66 30 65 38 34 30 62 61 38 38 66 61 31 31 38 35  f0e840ba88fa1185
0600: 30 38 33 36 39 64 66 31 38 36 63 37 33 35 35 62  08369df186c7355b
0610: 34 62 31 36 63 66 37 39 66 61 32 37 31 30 61 31  4b16cf79fa2710a1
0620: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
0630: 20 48 61 73 68 5f 42 4c 41 4b 45 32 73 32 35 36   Hash_BLAKE2s256
0640: 2d 31 2e 36 20 7b 42 4c 41 4b 45 32 73 32 35 36  -1.6 {BLAKE2s256
0650: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0660: 73 20 42 4c 41 4b 45 32 73 32 35 36 20 5c 0a 09  s BLAKE2s256 \..
0670: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
0680: 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e   "ABCDEFGHIJKLMN
0690: 4f 50 51 52 53 54 55 56 57 58 59 5a 61 62 63 64  OPQRSTUVWXYZabcd
06a0: 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74  efghijklmnopqrst
06b0: 75 76 77 78 79 7a 30 31 32 33 34 35 36 37 38 39  uvwxyz0123456789
06c0: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  "} \..-body {tls
06d0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
06e0: 20 42 4c 41 4b 45 32 73 32 35 36 20 2d 64 61 74   BLAKE2s256 -dat
06f0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0700: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0710: 20 63 37 35 34 33 39 65 61 31 37 65 31 64 65 36   c75439ea17e1de6
0720: 66 61 34 35 31 30 63 33 33 35 64 63 33 64 33 66  fa4510c335dc3d3f
0730: 33 34 33 65 36 66 39 65 31 63 65 32 37 37 33 65  343e6f9e1ce2773e
0740: 32 35 62 34 31 37 34 66 31 64 66 38 62 31 31 39  25b4174f1df8b119
0750: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
0760: 20 48 61 73 68 5f 42 4c 41 4b 45 32 73 32 35 36   Hash_BLAKE2s256
0770: 2d 31 2e 37 20 7b 42 4c 41 4b 45 32 73 32 35 36  -1.7 {BLAKE2s256
0780: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0790: 73 20 42 4c 41 4b 45 32 73 32 35 36 20 5c 0a 09  s BLAKE2s256 \..
07a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
07b0: 20 22 31 32 33 34 35 36 37 38 39 30 31 32 33 34   "12345678901234
07c0: 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30  5678901234567890
07d0: 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36  1234567890123456
07e0: 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32  7890123456789012
07f0: 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38  3456789012345678
0800: 39 30 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  90"} \..-body {t
0810: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
0820: 73 74 20 42 4c 41 4b 45 32 73 32 35 36 20 2d 64  st BLAKE2s256 -d
0830: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0840: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0850: 6c 74 20 66 64 61 65 64 62 32 39 30 61 30 64 35  lt fdaedb290a0d5
0860: 61 66 39 38 37 30 38 36 34 66 65 63 32 65 30 39  af9870864fec2e09
0870: 30 32 30 30 39 38 39 64 63 39 63 64 35 33 61 33  0200989dc9cd53a3
0880: 63 30 39 32 31 32 39 65 38 35 33 35 65 38 62 34  c092129e8535e8b4
0890: 66 36 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  f66..tcltest::te
08a0: 73 74 20 48 61 73 68 5f 42 4c 41 4b 45 32 73 32  st Hash_BLAKE2s2
08b0: 35 36 2d 31 2e 38 20 7b 42 4c 41 4b 45 32 73 32  56-1.8 {BLAKE2s2
08c0: 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  56} \..-constrai
08d0: 6e 74 73 20 42 4c 41 4b 45 32 73 32 35 36 20 5c  nts BLAKE2s256 \
08e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
08f0: 74 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 72  ta "The quick br
0900: 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76  own fox jumps ov
0910: 65 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22  er the lazy dog"
0920: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0930: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0940: 42 4c 41 4b 45 32 73 32 35 36 20 2d 64 61 74 61  BLAKE2s256 -data
0950: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0960: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0970: 36 30 36 62 65 65 65 63 37 34 33 63 63 62 65 66  606beeec743ccbef
0980: 66 36 63 62 63 64 66 35 64 35 33 30 32 61 61 38  f6cbcdf5d5302aa8
0990: 35 35 63 32 35 36 63 32 39 62 38 38 63 38 65 64  55c256c29b88c8ed
09a0: 33 33 31 65 61 31 61 36 62 66 33 63 38 38 31 32  331ea1a6bf3c8812
09b0: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63  ..# Cleanup.::tc
09c0: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65  ltest::cleanupTe
09d0: 73 74 73 0a 72 65 74 75 72 6e 0a                 sts.return.