Skip to content

Commit

Permalink
Add test case for issue640
Browse files Browse the repository at this point in the history
I think we've finally cracked the nut on this strictness bug.
Fixes #640
  • Loading branch information
robdockins committed Apr 6, 2021
1 parent 1b3aea0 commit 04ad6da
Show file tree
Hide file tree
Showing 3 changed files with 22 additions and 0 deletions.
11 changes: 11 additions & 0 deletions tests/issues/issue640.cry
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
f : [1] -> [2]
f x = out
where out = x # [out@0]

g : [1] -> [2]
g x = out
where out = x # (take out)

h : [1] [8] -> [2] [8]
h x = out
where out = x # take out
5 changes: 5 additions & 0 deletions tests/issues/issue640.icry
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
:load issue640.cry

f zero
g zero
h zero
6 changes: 6 additions & 0 deletions tests/issues/issue640.icry.stdout
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
Loading module Cryptol
Loading module Cryptol
Loading module Main
0x0
0x0
[0x00, 0x00]

0 comments on commit 04ad6da

Please sign in to comment.