view release on metacpan or  search on metacpan

t/12_stream.t  view on Meta::CPAN

open(SAVESTDOUT, '>&', STDOUT) or die "Can't dup STDOUT: $!";
close(STDOUT);
open(STDOUT, '>', \$report) or die "Can't redirect STDOUT: $!";

my $ret = xsv_report({
  fields    => [ qw(foo) ],
  iterator  => sub { while ( @vals ) { return [ splice @vals, 0, 1 ] } },
  stream    => 1,
});

is( $ret, "", "empty return value when streaming enabled" );

is( $report, "Foo\none\ntwo\nthree\nfour\nfive\nsix\n",
             "streaming output works" );

open(STDOUT, '>&', SAVESTDOUT) or die "Can't restore STDOUT: $!"