如何测试提示命令？

Question

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

use Test;

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

Answer 1

我不知道如何直接执行此操作（可能通过捕获句柄），因此我将其留给其他人，但您可以将代码放入脚本文件中并使用Test::Run模块进行测试：

\n

# script.raku\n\nmy $x = prompt "Are you OK? ";\nsay $x ~~ \'y\' ?? "Great!" !! "Bummer";\n

\n

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

\n