diff --git a/src/test/blocks/unicode-strings.xml b/src/test/blocks/unicode-strings.xml
new file mode 100644
index 0000000..401a772
--- /dev/null
+++ b/src/test/blocks/unicode-strings.xml
@@ -0,0 +1 @@
+
\ No newline at end of file
diff --git a/src/test/process.rs b/src/test/process.rs
index d0428f3..fdabf92 100644
--- a/src/test/process.rs
+++ b/src/test/process.rs
@@ -2454,6 +2454,24 @@ fn test_proc_stop_fn() {
});
}
+#[test]
+fn test_proc_unicode_strings() {
+ let system = Rc::new(StdSystem::new_sync(CompactString::new(BASE_URL), None, Config::default(), Arc::new(Clock::new(UtcOffset::UTC, None))));
+ let (mut env, _) = get_running_proc(Default::default(), &format!(include_str!("templates/generic-static.xml"),
+ globals = "",
+ fields = "",
+ funcs = include_str!("blocks/unicode-strings.xml"),
+ methods = "",
+ ), Settings { rpc_error_scheme: ErrorScheme::Soft, ..Default::default() }, system, |_| SymbolTable::default());
+
+ run_till_term(&mut env, |mc, _, res| {
+ let expect = Value::from_simple(mc, SimpleValue::from_json(json!([
+
+ ])).unwrap());
+ assert_values_eq(&res.unwrap().0, &expect, 1e-5, "unicode strings");
+ });
+}
+
#[test]
fn test_proc_ext_raii() {
let config = Config::> {