如何测试prompt命令

Question

my $x = prompt "Are you OK? ";
say $x ~~ 'y' ?? "Great!" !! "Bummer";
use Test;

可以在t/文件中放入哪些测试？它如何响应提示？

Answer 1

我不知道如何直接执行(可能是通过捕获句柄(，所以我把它留给其他人，但你可以把你的代码放在脚本文件中，并用test:：Run module:进行测试

# script.raku
my $x = prompt "Are you OK? ";
say $x ~~ 'y' ?? "Great!" !! "Bummer";

# script.t
use Test::Run:auth<zef:CIAvash>:ver<0.2.*> :runs_ok;
runs_ok :args«$*EXECUTABLE script.raku», :in<y>, :out(*.contains: 'Are you OK? Great!');
runs_ok :args«$*EXECUTABLE script.raku», :in<n>, :out(*.contains: 'Are you OK? Bummer');