Documentation and improved bit-order treatment

2025-09-04 14:55:46 -07:00
parent 676629dfe5
commit 51dbdbf415
8 changed files with 105 additions and 32 deletions
--- a/TestAsconXOF128.cry
+++ b/TestAsconXOF128.cry
@@ -3,7 +3,7 @@ module TestAsconXOF128 where
 import AsconHash

 testcase : {r, n} (fin n, fin r) => [8*n] -> [8*r] -> Bool
-testcase M D = join (Ascon_XOF128_bytes (split M)) == D
+testcase M D = Ascon_XOF128_bytes (split M) == split D

 property
  test1 = testcase [] 0x473D5E6164F58B39DFD84AACDB8AE42EC2D91FED33388EE0D960D9B3993295C6AD77855A5D3B13FE6AD9E6098988373AF7D0956D05A8F1665D2C67D1A3AD10FF