Add test for String::create unspecified length

Author: tobil4sk

.github/workflows/test.yml

@@ -231,3 +231,19 @@ jobs:
         run: haxe compile-cpp.hxml -D ${{ env.HXCPP_ARCH_FLAG }} -D no_http
       - name: run
         run: bin${{ inputs.sep }}cpp${{ inputs.sep }}TestMain-debug
+
+  regression:
+    runs-on: ${{ inputs.os }}
+    name: regression tests
+    defaults:
+      run:
+        working-directory: test/regression
+    steps:
+      - name: checkout
+        uses: actions/checkout@v4
+      - name: setup
+        uses: ./.github/workflows/setup
+        with:
+          haxe: ${{ inputs.haxe }}
+      - name: run
+        run: haxe --run Run -D ${{ env.HXCPP_ARCH_FLAG }}

test/regression/Issue849/Main.hx

@@ -0,0 +1,10 @@
+function main() {
+	// char
+	trace(untyped __cpp__('::String::create("Hello world")'));
+
+	// wchar_t
+	trace(untyped __cpp__('::String::create(L"Hello world")'));
+
+	// char16_t
+	trace(untyped __cpp__('::String::create(u"Hello world")'));
+}

test/regression/Issue849/build.hxml

@@ -0,0 +1,3 @@
+-cpp bin
+-D disable-unicode-strings
+-m Main

test/regression/Issue849/stdout.txt

@@ -0,0 +1,3 @@
+Main.hx:3: Hello world
+Main.hx:6: Hello world
+Main.hx:9: Hello world

test/regression/Run.hx

@@ -0,0 +1,60 @@
+import sys.io.Process;
+import sys.io.File;
+import sys.FileSystem;
+
+using StringTools;
+
+function runOutput(test:String):String {
+	final slash = Sys.systemName() == "Windows" ? "\\" : "/";
+	final proc = new Process([test, "bin", 'Main'].join(slash));
+	final code = proc.exitCode();
+
+	if (code != 0) {
+		throw 'return code was $code';
+	}
+
+	return proc.stdout.readAll().toString().replace("\r\n", "\n");
+}
+
+function main() {
+	var successes = 0;
+	var total = 0;
+
+	final args = Sys.args();
+
+	for (test in FileSystem.readDirectory(".")) {
+		if (!FileSystem.isDirectory(test)) {
+			continue;
+		}
+
+		total++;
+
+		final buildExitCode = Sys.command("haxe", ["-C", test, "build.hxml"].concat(args));
+		if (buildExitCode != 0) {
+			Sys.println('Failed to build test $test. Exit code: $buildExitCode');
+			continue;
+		}
+
+		final expectedStdout = File.getContent('$test/stdout.txt').replace("\r\n", "\n");
+		final actualStdout = try {
+			runOutput(test);
+		} catch (e) {
+			Sys.println('Test $test failed: $e');
+			continue;
+		};
+
+		if (actualStdout != expectedStdout) {
+			Sys.println('Test $test failed: Output did not match');
+
+			Sys.println("Expected stdout:");
+			Sys.println(expectedStdout);
+			Sys.println("Actual stdout:");
+			Sys.println(actualStdout);
+			continue;
+		}
+
+		successes++;
+	}
+
+	Sys.println('Regression tests complete. Successes: $successes / $total');
+}