|
@@ -2338,15 +2338,17 @@ sub success {
|
|
|
|
|
|
sub answer_bisect {
|
|
sub answer_bisect {
|
|
for (;;) {
|
|
for (;;) {
|
|
- doprint "Pass or fail? [p/f]";
|
|
|
|
|
|
+ doprint "Pass, fail, or skip? [p/f/s]";
|
|
my $ans = <STDIN>;
|
|
my $ans = <STDIN>;
|
|
chomp $ans;
|
|
chomp $ans;
|
|
if ($ans eq "p" || $ans eq "P") {
|
|
if ($ans eq "p" || $ans eq "P") {
|
|
return 1;
|
|
return 1;
|
|
} elsif ($ans eq "f" || $ans eq "F") {
|
|
} elsif ($ans eq "f" || $ans eq "F") {
|
|
return 0;
|
|
return 0;
|
|
|
|
+ } elsif ($ans eq "s" || $ans eq "S") {
|
|
|
|
+ return -1;
|
|
} else {
|
|
} else {
|
|
- print "Please answer 'P' or 'F'\n";
|
|
|
|
|
|
+ print "Please answer 'p', 'f', or 's'\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|