Bug#746804: updated demonstration script

[David Christensen]

Dear Maintainer,

The bug also occurs if the STDIN callback attempts to return an empty 
array in it's own scope.


David




2014-05-03 13:03:19 dpchrist at dev ~/sandbox/perl
$ cat IPC-Run-run_stdin-callback-return-array.t
#! /usr/bin/perl
# $Id: IPC-Run-run_stdin-callback-return-array.t,v 1.5 2014-05-03 
20:03:15 dpchrist Exp $
# Demonstrate Perl IPC::Run stdin callback problem returning array
# by David Paul Christensen dpchrist at holgerdanske.com
# Public Domain

use strict;
use warnings;

use IPC::Run qw( run );
use Test::More			tests => 9;

my @cmd = ("true");
our ($i, @i);
my ($in, @in);

ok( run( \@cmd                      ) == 1, "no callback");	#     1
ok (run( \@cmd, sub { return undef }) == 1, "undef");		#     2
ok (run( \@cmd, sub { return ""    }) == 1, "empty string");	#     3
ok (run( \@cmd, sub { return ()    }) == 1, "empty array");	#     4
ok (run( \@cmd, sub { return $i    }) == 1, "package scalar");	#     5
ok (run( \@cmd, sub { return $in   }) == 1, "lexical scalar");	#     6
ok (run( \@cmd, sub { my @a; return @a }) == 1,
     "block lexical array");					#     7
ok (run( \@cmd, sub { return @i    }) == 1, "package array");	#     8
ok (run( \@cmd, sub { return @in   }) == 1, "lexical array");	#     9