GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-24 16:31:34 +03:00
Code Issues Projects Releases Wiki Activity

Add test case for issue #474.

Browse Source
This commit is contained in:
Brian Huffman 2017-10-20 11:09:51 -07:00
parent e3ea9335c8
commit 8db89ab3ee
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/issues/issue474.icry Normal file
View File

@ -0,0 +1,3 @@
let mapping = ['A' .. 'Z'] <<< 13
let mapped c = if (('A' <= c) && (c <= 'Z')) then (mapping @ (c - 'A')) else c
:sat \x -> mapped x == 'N'

2
tests/issues/issue474.icry.stdout Normal file
View File

@ -0,0 +1,2 @@
Loading module Cryptol
(\x -> mapped x == 'N') 0x41 = True