Pattern match in Funs is kind of cool

elmer-compiler · Aug 25, 2016 · ec3d6d3 · ec3d6d3
1 parent 9f7d8b4
commit ec3d6d3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/test/files/Elm.Native.Utils.erl b/test/files/Elm.Native.Utils.erl
@@ -3,6 +3,6 @@
 -export([ append/0 ]).
 
 append() ->
-    elmer_runtime:partial(fun (V_a, V_b) ->
-                                  erlang:iolist_to_binary([V_a, V_b])
+    elmer_runtime:partial(fun (Xs, Ys) when is_binary(Xs) -> erlang:iolist_to_binary([Xs, Ys]);
+                              (Xs, Ys) when is_list(Xs) -> lists:append(Xs, Ys)
                           end, 2).
diff --git a/test/native_elmer_test.erl b/test/native_elmer_test.erl
@@ -43,7 +43,9 @@ runs_RunExample_test() ->
     %% TODO Figure out where to put Native modules
     %% TODO Namespace loaded modules to 'Elm.ModuleName'
     Result = ('Elm.RunExample':greet())([<<"doodie">>]),
-    ?assertEqual(<<"Howdy, doodie">>, Result).
+    ?assertEqual(<<"Howdy, doodie">>, Result),
+    Result2 = ('Elm.Native.Utils':append())([[1,2],[3,4]]),
+    ?assertEqual([1,2,3,4], Result2).
 
 -endif. %%  TEST