\ ===== TEST routines create ABC 97 c, 98 c, 99 c, : ldr cr ." must be: " ; : proof ( -- ) ABC 3 sha256 cr 9 spaces .hahdr ldr ." ba7816bf 8f01cfea 414140de 5dae2223 b00361a3 96177a9c b410ff61 f20015ad" cr ." SHA-256: " .hash ; : 65aaa 65 0 do [char] a c, loop ; create AAA 65aaa : aaatest ( n -- ) aaa swap 0 max 65 min sha256 cr ." SHA-256: " .hash ; : fulltest \ tests all critical lengths for the function cr 9 spaces .hahdr ldr ." e3b0c442 98fc1c14 9afbf4c8 996fb924 27ae41e4 649b934c a495991b 7852b855" 0 aaatest ldr ." ca978112 ca1bbdca fac231b3 9a23dc4d a786eff8 147c4e72 b9807785 afee48bb" 1 aaatest ldr ." 9f4390f8 d30c2dd9 2ec9f095 b65e2b9a e9b0a925 a5258e24 1c9f1e91 0f734318" 55 aaatest ldr ." b35439a4 ac6f0948 b6d6f9e3 c6af0f5f 590ce20f 1bde7090 ef797068 6ec6738a" 56 aaatest ldr ." 7d3e74a0 5d7db15b ce4ad9ec 0658ea98 e3f06eee cf16b4c6 fff2da45 7ddc2f34" 63 aaatest ldr ." ffe054fe 7ae0cb6d c65c3af9 b61d5209 f439851d b43d0ba5 997337df 154668eb" 64 aaatest ldr ." 635361c4 8bb9eab1 4198e76e a8ab7f1a 41685d6a d62aa914 6d301d4f 17eb0ae0" 65 aaatest cr ;