Language tests across Erlang and JavaScript

.github/workflows/ci.yaml

@@ -126,6 +126,14 @@ jobs:
         sed -i 's/cargo run --/gleam/' */rebar.config */Makefile
       working-directory: ./test
 
+    - name: test/language Erlang
+      run: make clean erlang
+      working-directory: ./test/language
+
+    - name: test/language JavaScript
+      run: make clean javascript
+      working-directory: ./test/language
+
     - name: test/build_with_gleam
       run: gleam eunit
       working-directory: ./test/build_with_gleam

.gitignore

@@ -4,3 +4,4 @@
 /tmp
 .idea/
 .idea/*
+erl_crash.dump

test/language/.gitignore

@@ -0,0 +1,2 @@
+erlang
+javascript

test/language/Makefile

@@ -0,0 +1,17 @@
+.phony: build
+build: clean erlang javascript
+
+.phony: clean
+clean:
+	rm -rf target-*
+
+.phony: erlang
+erlang:
+	cargo run -- compile-package --name language --src src --out target-erlang --target erlang
+	cd target-erlang && erlc *.erl
+	escript main_erlang.erl
+
+.phony: javascript
+javascript:
+	cargo run -- compile-package --name language --src src --out target-javascript --target javascript
+	node main_javascript.js

test/language/main_erlang.erl

@@ -0,0 +1,13 @@
+!/usr/bin/env escript
+%% -*- erlang -*-
+%%! -pa target-erlang
+
+-module(democtl).
+
+main(_) ->
+    Print = fun(S) -> 
+        io:format("~s", [S]), 
+        S 
+    end,
+    Status = main:main(Print),
+    halt(Status).

test/language/main_javascript.js

@@ -0,0 +1,9 @@
+import { main } from "./target-javascript/main.js";
+
+function print(string) {
+  process.stdout.write(string);
+  return string;
+}
+
+let status = main(print);
+process.exit(status);

test/language/package.json

@@ -0,0 +1,3 @@
+{
+  "type": "module"
+}

test/language/src/main.gleam

@@ -0,0 +1,4 @@
+pub fn main(print: fn(String) -> String) -> Int {
+  print("Hello, world!\n")
+  0
+}

test/language/target-erlang/main.erl

@@ -0,0 +1,9 @@
+-module(main).
+-compile(no_auto_import).
+
+-export([main/1]).
+
+-spec main(fun((binary()) -> binary())) -> integer().
+main(Print) ->
+    Print(<<"Hello, world!\n"/utf8>>),
+    0.