Added missing test

This commit is contained in:
Dmitry Boulytchev 2019-09-25 00:26:11 +03:00
parent efea4901ef
commit fa73744c36
3 changed files with 12 additions and 0 deletions

View file

@ -0,0 +1,2 @@
> 100
200

9
regression/test063.expr Normal file
View file

@ -0,0 +1,9 @@
fun traverse (l) {
case l of
{} -> skip
| (f@#fun) : tl -> f (); traverse (tl)
| _ : tl -> traverse (tl)
esac
}
traverse ({1, fun () write(100), 2, 3, 4, 5, fun () write (200), 6, 7})

1
regression/test063.input Normal file
View file

@ -0,0 +1 @@
5