相关疑难解决方法(0)

我正在测试需要用户输入的组件.如何告诉我Test::More使用我预定义的输入,以便我不需要手动输入？

这就是我现在拥有的:

use strict;
use warnings;
use Test::More;
use TestClass;

    *STDIN = "1\n";
    foreach my $file (@files)
    {

#this constructor asks for user input if it cannot find the file (1 is ignore);
    my $test = TestClass->new( file=> @files );

    isa_ok( $test, 'TestClass');
    }


done_testing;

这段代码确实按回车,但函数检索0而不是1;