From f4d3ff9665a21df92c9b09a418d65b0c7471ea28 Mon Sep 17 00:00:00 2001
From: Fang <fang@fang.io>
Date: Tue, 6 Nov 2018 16:17:22 -0800
Subject: [PATCH] Add tests for blake2b

---
 tests/sys/zuse/crypto/blake.hoon | 93 ++++++++++++++++++++++++++++++++
 1 file changed, 93 insertions(+)
 create mode 100644 tests/sys/zuse/crypto/blake.hoon

diff --git a/tests/sys/zuse/crypto/blake.hoon b/tests/sys/zuse/crypto/blake.hoon
new file mode 100644
index 0000000000..d0b5348938
--- /dev/null
+++ b/tests/sys/zuse/crypto/blake.hoon
@@ -0,0 +1,93 @@
+::  tests for the blake2b hashing algorithm
+::
+::  test vectors from here:
+::  https://github.com/emilbayes/blake2b/blob/master/test-vectors.json
+::
+/+  *test
+=,  blake:crypto
+::
+|%
+::
+::  test a list of vectors
+::
+++  do-test-vectors
+  |=  ves=(list [out=@ud msg=byts key=byts res=@ux])
+  ^-  tang
+  ?~  ves  ~
+  =-  (weld - $(ves t.ves))
+  =,  i.ves
+  %+  expect-eq
+    !>  res
+    !>  `@ux`(blake2b msg key out)
+::
+++  test-blake2b
+  =/  non=byts  0^0x0
+  =/  key=byts
+    :-  64
+    0x1.0203.0405.0607.0809.0a0b.0c0d.0e0f.1011.1213.1415.1617.
+        1819.1a1b.1c1d.1e1f.2021.2223.2425.2627.2829.2a2b.2c2d.
+        2e2f.3031.3233.3435.3637.3839.3a3b.3c3d.3e3f
+  =/  sml=byts
+    :-  33
+    0x102.0304.0506.0708.090a.0b0c.0d0e.0f10.
+     1112.1314.1516.1718.191a.1b1c.1d1e.1f20
+  =/  lrg=byts
+    :-  255
+    0x102.0304.0506.0708.090a.0b0c.0d0e.0f10.1112.1314.1516.
+     1718.191a.1b1c.1d1e.1f20.2122.2324.2526.2728.292a.2b2c.
+     2d2e.2f30.3132.3334.3536.3738.393a.3b3c.3d3e.3f40.4142.
+     4344.4546.4748.494a.4b4c.4d4e.4f50.5152.5354.5556.5758.
+     595a.5b5c.5d5e.5f60.6162.6364.6566.6768.696a.6b6c.6d6e.
+     6f70.7172.7374.7576.7778.797a.7b7c.7d7e.7f80.8182.8384.
+     8586.8788.898a.8b8c.8d8e.8f90.9192.9394.9596.9798.999a.
+     9b9c.9d9e.9fa0.a1a2.a3a4.a5a6.a7a8.a9aa.abac.adae.afb0.
+     b1b2.b3b4.b5b6.b7b8.b9ba.bbbc.bdbe.bfc0.c1c2.c3c4.c5c6.
+     c7c8.c9ca.cbcc.cdce.cfd0.d1d2.d3d4.d5d6.d7d8.d9da.dbdc.
+     ddde.dfe0.e1e2.e3e4.e5e6.e7e8.e9ea.ebec.edee.eff0.f1f2.
+     f3f4.f5f6.f7f8.f9fa.fbfc.fdfe
+  ::
+  %-  do-test-vectors
+  :~
+    :^    64
+        non
+      non
+    0x786a.02f7.4201.5903.c6c6.fd85.2552.d272.912f.4740.e158.
+      4761.8a86.e217.f71f.5419.d25e.1031.afee.5853.1389.6444.
+      934e.b04b.903a.685b.1448.b755.d56f.701a.fe9b.e2ce
+  ::
+    :^    64
+        sml
+      non
+    0x83b0.98f2.6225.1bf6.6006.4a9d.3511.ce76.87a0.9e6d.fbb8.
+      7829.9c30.e93d.fb43.a931.4db9.a600.337d.b26e.beed.af22.
+      56a9.6dab.e9b2.9e75.73ad.11c3.523d.874d.de5b.e7ed
+  ::
+    :^    64
+        lrg
+      non
+    0x5b21.c5fd.8868.3676.1247.4fa2.e70e.9cfa.2201.ffee.e8fa.
+      fab5.797a.d58f.efa1.7c9b.5b10.7da4.a3db.6320.baaf.2c86.
+      17d5.a51d.f914.ae88.da38.67c2.d41f.0cc1.4fa6.7928
+  ::
+    :^    64
+        non
+      key
+    0x10eb.b677.00b1.868e.fb44.1798.7acf.4690.ae9d.972f.b7a5.
+      90c2.f028.7179.9aaa.4786.b5e9.96e8.f0f4.eb98.1fc2.14b0.
+      05f4.2d2f.f423.3499.3916.53df.7aef.cbc1.3fc5.1568
+  ::
+    :^    64
+        sml
+      key
+    0x5595.e05c.13a7.ec4d.c8f4.1fb7.0cb5.0a71.bce1.7c02.4ff6.
+      de7a.f618.d0cc.4e9c.32d9.570d.6d3e.a45b.8652.5491.030c.
+      0d8f.2b18.36d5.778c.1ce7.35c1.7707.df36.4d05.4347
+  ::
+    :^    64
+        lrg
+      key
+    0x1427.09d6.2e28.fccc.d0af.97fa.d0f8.465b.971e.8220.1dc5.
+      1070.faa0.372a.a43e.9248.4be1.c1e7.3ba1.0906.d5d1.853d.
+      b6a4.106e.0a7b.f980.0d37.3d6d.ee2d.46d6.2ef2.a461
+  ==
+--