diff --git a/examples/acceptance_tests/024/aiken.toml b/examples/acceptance_tests/024/aiken.toml new file mode 100644 index 00000000..ce3866b1 --- /dev/null +++ b/examples/acceptance_tests/024/aiken.toml @@ -0,0 +1,2 @@ +name = "acceptance_test_024" +version = "0.0.0" diff --git a/examples/acceptance_tests/024/lib/test.ak b/examples/acceptance_tests/024/lib/test.ak new file mode 100644 index 00000000..5633712f --- /dev/null +++ b/examples/acceptance_tests/024/lib/test.ak @@ -0,0 +1,18 @@ +pub fn map2( + opt_a: Option, + opt_b: Option, + f: fn(a, b) -> result, +) -> Option { + when opt_a is { + None -> None + Some(a) -> + when opt_b is { + None -> None + Some(b) -> Some(f(a, b)) + } + } +} + +test map2_3() { + map2(Some(14), Some(42), fn(a, b) { #(a, b) }) == Some(#(14, 42)) +}