We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8ac51b1 commit 643946cCopy full SHA for 643946c
t/rev/rev.t
@@ -49,15 +49,14 @@ subtest "from stdin" => sub {
49
subtest "version" => sub {
50
my( $output, $error );
51
52
- my @command = ( $^X, $command, '--version' );
+ my @command = ( $^X, $command, '-v' );
53
run3 \@command, undef, \$output, \$error;
54
55
like $output, qr/\Q$basename\E \d+\.\d+/, "shows version message";
56
};
57
58
subtest "help" => sub {
59
-
60
- foreach my $arg ( '-h', '--help' ) {
+ foreach my $arg ( '-h' ) {
61
62
my @command = ( $^X, $command, $arg );
63
0 commit comments