subprocess_run: test with actual executables built on system

Author: scivision

.gitignore

@@ -9,3 +9,6 @@ docs/
 
 *.mex*
 *.oct
+
+test/printer_c.exe
+test/printer_fortran.exe

buildfile.m

@@ -19,6 +19,10 @@
   plan("clean") = matlab.buildtool.tasks.CleanTask;
 end
 
+plan("build_c") = matlab.buildtool.Task(Actions=@subprocess_build_c);
+plan("build_fortran") = matlab.buildtool.Task(Actions=@subprocess_build_fortran);
+plan("test").Dependencies = ["build_c", "build_fortran"];
+
 if ~isMATLABReleaseOlderThan("R2024a")
   plan("check") = matlab.buildtool.tasks.CodeIssuesTask(pkg_name, IncludeSubfolders=true, ...
     WarningThreshold=0, Results="CodeIssues.sarif");
@@ -68,7 +72,7 @@ function legacy_mex(context, compiler_opt, linker_opt)
 
 
 function legacy_test(context)
-r = runtests(fullfile(context.Plan.RootFolder, "test"), Strict=false);
+r = runtests(context.Plan.RootFolder + "/test", Strict=false);
 % Parallel Computing Toolbox takes more time to startup than is worth it for this task
 
 assert(~isempty(r), "No tests were run")
@@ -78,7 +82,7 @@ function legacy_test(context)
 
 function publishTask(context)
 % publish HTML inline documentation strings to individual HTML files
-outdir = fullfile(context.Plan.RootFolder, "docs");
+outdir = context.Plan.RootFolder + "/docs";
 
 publish_gen_index_html("stdlib", ...
   "A standard library of functions for Matlab.", ...
@@ -87,6 +91,64 @@ function publishTask(context)
 end
 
 
+function subprocess_build_c(context)
+
+td = context.Plan.RootFolder + "/test";
+src_c = td + "/main.c";
+exe = td + "/printer_c.exe";
+
+ccObj = mex.getCompilerConfigurations('c');
+
+cc = ccObj.Details.CompilerExecutable;
+
+outFlag = "-o";
+shell = "";
+shell_arg = "";
+msvcLike = ispc && endsWith(cc, "cl");
+if msvcLike
+  shell = strtrim(c.Details.CommandLineShell);
+  shell_arg = c.Details.CommandLineShellArg;
+  outFlag = "/link /out:";
+end
+
+cmd = join([cc, src_c, outFlag, exe]);
+if shell ~= ""
+  cmd = join([shell, shell_arg, cmd]);
+end
+
+[r, m] = system(cmd);
+if r ~= 0
+  warning("failed to build TestSubprocess printer_c.exe " + m)
+end
+
+end
+
+
+function subprocess_build_fortran(context)
+
+td = context.Plan.RootFolder + "/test";
+src = td + "/main.f90";
+exe = td + "/printer_fortran.exe";
+
+fcObj = mex.getCompilerConfigurations('Fortran');
+if isempty(fcObj)
+  fc = "gfortran";
+else
+  fc = fcObj.Details.CompilerExecutable;
+end
+
+outFlag = "-o";
+
+cmd = join([fc, src, outFlag, exe]);
+
+[r, m] = system(cmd);
+if r ~= 0
+  warning("failed to build TestSubprocess printer_fortran.exe " + m)
+end
+
+end
+
+
 function srcs = get_mex_sources(build_all)
 arguments
   build_all (1,1) logical = false

test/TestSubprocess.m

@@ -9,18 +9,32 @@ function java_required(tc)
 
 methods (Test)
 
-function test_simple_run(tc)
+function test_exe_c(tc)
+import matlab.unittest.constraints.IsFile
+
+cwd = fileparts(mfilename('fullpath'));
+exe = cwd + "/printer_c.exe";
+tc.assumeThat(exe, IsFile, exe + " not found")
+
+[status, msg, err] = stdlib.subprocess_run(exe);
+tc.assertEqual(status, 0, err)
+tc.verifyEqual(msg, "stdout")
+tc.verifyEqual(err, "stderr")
 
-if ispc
-  c = ["cmd", "/c", "dir"];
-else
-  c = 'ls';
 end
 
-[status, msg, err] = stdlib.subprocess_run(c);
+
+function test_exe_fortran(tc)
+import matlab.unittest.constraints.IsFile
+
+cwd = fileparts(mfilename('fullpath'));
+exe = cwd + "/printer_fortran.exe";
+tc.assumeThat(exe, IsFile, exe + " not found")
+
+[status, msg, err] = stdlib.subprocess_run(exe);
 tc.assertEqual(status, 0, err)
-tc.verifyGreaterThan(strlength(msg),  0)
-tc.verifyEqual(strlength(err), 0)
+tc.verifyEqual(msg, "stdout")
+tc.verifyEqual(err, "stderr")
 
 end
 
@@ -41,7 +55,7 @@ function test_cwd(tc)
 
 td = tc.createTemporaryFolder();
 
-[s, mc, e] = stdlib.subprocess_run(c, "cwd", td);
+[s, mc, e] = stdlib.subprocess_run(c, cwd=td);
 tc.assertEqual(s, 0, "status non-zero")
 tc.verifyNotEqual(m, mc, "expected different directory to have different contents")
 tc.verifyEqual(strlength(e), 0, e)

test/main.c

@@ -1,6 +1,7 @@
 #include <stdio.h>
 
 int main(void){
-  printf("Hello\n");
+  printf("stdout\n");
+  fprintf(stderr, "stderr\n");
   return 0;
 }

test/main.f90

@@ -0,0 +1,10 @@
+program main
+
+use, intrinsic :: iso_fortran_env
+
+implicit none
+
+write(output_unit, '(a)') "stdout"
+write(error_unit, '(a)') "stderr"
+
+end program