mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-27 22:09:09 +00:00
Reproduce #4733
This commit is contained in:
parent
6f2e14cf18
commit
ed4e047ee8
2 changed files with 68 additions and 0 deletions
|
@ -2173,3 +2173,22 @@ fn issue_4749() {
|
|||
"###
|
||||
)
|
||||
}
|
||||
|
||||
#[mono_test(mode = "test", no_check)]
|
||||
fn issue_4733() {
|
||||
indoc!(
|
||||
r###"
|
||||
interface Test exposes [] imports []
|
||||
|
||||
fn = \{} ->
|
||||
instr : [ Op (U64, U64 -> U64) ]
|
||||
instr = if Bool.true then (Op Num.mul) else (Op Num.add)
|
||||
|
||||
Op op = instr
|
||||
|
||||
\a -> op a a
|
||||
|
||||
expect ((fn {}) 3) == 9
|
||||
"###
|
||||
)
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue