env takes charlist

Author: mjsir911

src/gleam/erlang/port.gleam

@@ -1,4 +1,5 @@
 import gleam/dynamic
+import gleam/erlang/charlist.{type Charlist}
 
 /// Ports are how code running on the Erlang virtual machine interacts with
 /// the outside world. Bytes of data can be sent to and read from ports,
@@ -33,7 +34,7 @@ pub fn spawn_executable(command: String) -> PortCommand {
 pub type PortOptions {
   Arg0(String)
   Args(List(String))
-  Env(List(#(String, String)))
+  Env(List(#(Charlist, Charlist)))
   Cd(String)
   Binary
 

test/gleam/erlang/port_test.gleam

@@ -1,6 +1,7 @@
 import gleam/erlang/port
 import gleam/erlang/port/receive.{Data, ExitStatus}
 import gleam/erlang/process.{receive, port_open, port_connect, port_subject}
+import gleam/erlang/charlist
 
 @external(erlang, "gleam_erlang_test_ffi", "assert_gleam_panic")
 fn assert_panic(f: fn() -> t) -> String
@@ -18,6 +19,21 @@ pub fn port_open_test() {
   assert Error(Nil) == receive(subject, 100)
 }
 
+pub fn port_env_open_test() {
+  let assert Ok(port) = port.open(
+    port.spawn_executable("/bin/bash"),
+    [
+      port.Args(["-c", "echo $VAR"]),
+      port.Env([#(charlist.from_string("VAR"), charlist.from_string("test123"))]),
+      port.UseStdio, port.ExitStatus, port.Binary
+    ]
+  )
+
+  let subject = port_subject(port)
+
+  assert Ok(Data(<<"test123\n">>)) == receive(subject, 100)
+}
+
 pub fn fail_port_open_test() {
   let assert Error(port.Enoent) = port.open(
     port.spawn_executable("/bin/doesntexist"),