mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
add @francisdb-inspired pattern-matching issue test
This commit is contained in:
parent
452d81a211
commit
3126620b95
16
unison-src/tests/pattern-weirdness.u
Normal file
16
unison-src/tests/pattern-weirdness.u
Normal file
@ -0,0 +1,16 @@
|
||||
go =
|
||||
a = 1
|
||||
case "" of
|
||||
pos | false -> a
|
||||
_ -> a
|
||||
|
||||
> go
|
||||
|
||||
-- 7 | > go
|
||||
-- ⧩
|
||||
-- ""
|
||||
|
||||
-- should be 1, not ""
|
||||
|
||||
-- seems to have something to do with the wildcard + guard, as changing or
|
||||
-- or deleting that line makes the problem go away
|
1
unison-src/tests/pattern-weirdness.ur
Normal file
1
unison-src/tests/pattern-weirdness.ur
Normal file
@ -0,0 +1 @@
|
||||
1
|
Loading…
Reference in New Issue
Block a user