unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-10 01:16:12 +03:00
Code Issues Projects Releases Wiki Activity

Enable hash checking in serial tests

Browse Source
This commit is contained in:
Dan Doel 2023-08-28 09:47:54 -04:00
parent ce3e06c217
commit 9126105c94
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
unison-src/builtin-tests/serial-tests.u
View File

@ -101,14 +101,14 @@ serial.runTestCase name =
handle
p@(f, i) = loadSelfContained name sfile
o = fromUtf8 (readFile ofile)
-- h = readFile hfile
h = readFile hfile
if toBase32 (crypto.hash Sha3_512 p) === h
then pass (name ++ " hash matches")
else fail name "hash mismatch"
if f i === o
then pass name
-- todo: check hashes
-- if toBase32 (crypto.hash Sha3_512 p) == h
-- then pass name
-- else fail name "hash mismatch"
then pass (name ++ "value matches")
else fail name "output mismatch"
with cases
{ x } -> x