Test :: Scriptからstdoutを実行する方法は？

Question

Test::Scriptモジュールを使って、testme.plというPerlスクリプトをテストし、実行されたスクリプトのstdoutを取得します。これまでのところundefになります。ここで

は、私は（テストファイル test.t）しようとしたものです：テスト対象の

use Test::More tests => 2; 
use Test::Script;  
use Data::Dumper; 
script_compiles('testme.pl'); 
my $out; 
script_runs(['testme.pl'], {"stdout"=>$out}, 'run_script'); 
print "Out is " . Dumper($out); 

、スクリプトを、私はまた、代わりに@Out \ REFの配列を使用してみました（testme.pl）

print "catchme if you can\n"; 

boris@midkemia artif_get_file $ perl perl_test.pl 
1..2 
ok 1 - Script testme.pl compiles 
ok 2 - run_script 
Out is $VAR1 = undef; 

$ out、まだ運がない。何か案が？ありがとう！

Answer 1

あなたはほとんどそれを持っています。 give the stdout option a referenceが必要です。それ以外の場合は、undefを渡すだけで、このオプションは無視されます。

script_runs(['testme.pl'], {"stdout"=>\$out}, 'run_script');