Yet Another CPAN Grep

Process-SubProcess ( B/BO/BODOLFO/Process-SubProcess-2.1.12.tar.gz, BODOLFO, 2023; MetaCPAN )

Process-SubProcess/t/test_runner.t ( view source; MetaCPAN )

nt("Runner Result:\n'$srunnerresult'\n");
    print("Runner EXIT CODE: '$irunnerstatus'\n");

    isnt( $srunnerresult, undef, "Runner Result is returned" );
    ok( $irunnerstatus =~ qr/^-?\d$/, "Run

nt("Runner Result:\n'$srunnerresult'\n");
    print("Runner EXIT CODE: '$irunnerstatus'\n");

    isnt( $srunnerresult, undef, "Runner Result is returned" );
    ok( $irunnerstatus =~ qr/^-?\d$/, "Run

>stderr:\n(.*)>>>>end/si );

    isnt( $sscriptsummary, undef, "Script Summary is returned" );
    isnt( $sscriptlog,     undef, "Script STDOUT is returned" );
    isnt( $scripterror,    undef, "Scrip

Process-SubProcess ( B/BO/BODOLFO/Process-SubProcess-2.1.12.tar.gz, BODOLFO, 2023; MetaCPAN )

Process-SubProcess/t/test_group.t ( view source; MetaCPAN )

= 0 ; $iprc < $iprccnt ; $iprc++ ) {
        $proctest = $procgroup->getiProcess($iprc);

        isnt( $proctest, undef, "Process No. '$iprc': Listed correctly" );

        if ( defined $proctest ) {

              print("STDOUT: '$$rscriptlog'\n");
            }
            else {
                isnt( $rscriptlog, undef, "STDOUT was captured" );
            }    #if(defined $rscriptlog)

            print("STDERR: '$$rscripterror'\n");
            }
            else {
                isnt( $rscripterror, undef, "STDERR was captured" );
            }    #if(defined $rscripterror)

Process-SubProcess ( B/BO/BODOLFO/Process-SubProcess-2.1.12.tar.gz, BODOLFO, 2023; MetaCPAN )

Process-SubProcess/t/test_subprocess.t ( view source; MetaCPAN )

testscript} $itestpause $iteststatus");


	isnt($rscriptlog, undef, "STDOUT Ref is returned");

	isnt($rscripterror, undef, "STDERR Ref is returned");

	isnt($iscriptstatus, undef, "EXIT CODE is retur

ined $rscriptlog)
	{
	  isnt($$rscriptlog, '', "STDOUT was captured");

	  print("STDOUT: '$$rscriptlog'\n");
	} #if(defined $rscriptlog)

	if(defined $rscripterror)
	{
	  isnt($$rscripterror, '', "ST

new(('command' => "${spath}${stestscript} $itestpause"
		  , 'check' => 2, 'profiling' => 1));

		isnt($proctest->getReadTimeout, -1, "Read Timeout is set");
		is($proctest->isProfiling, 1, 'Profiling

Process-SubProcess ( B/BO/BODOLFO/Process-SubProcess-2.1.12.tar.gz, BODOLFO, 2023; MetaCPAN )

Process-SubProcess/t/test_performance.t ( view source; MetaCPAN )

'command' => $spath . $stestscript . ' ' . $itestpause
		  , 'check' => 2, 'profiling' => 1));

		isnt($proctest->getReadTimeout, 0, 'Read Timeout activated');
		is($proctest->isProfiling, 1, 'Profili

;
		$rscripterror = $proctest->getErrorString;
		$iscriptstatus = $proctest->getProcessStatus;

		isnt($proctest->getExecutionTime, -1 , "Execution Time was measured");

		print("Read Timeout: '", $pr

lse
		{
		  isnt($$rscriptlog, undef, "STDOUT was captured");
		} #if(defined $rscriptlog)

		if(defined $rscripterror)
		{
		  print("STDERR: '$$rscripterror'\n");
		}
		else
		{
		  isnt($$rscripter