1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use Test::More;
use Test::Command::Simple;
my $CMD = 'terser';
# skip test bare command: hangs waiting for input
#run_ok $CMD;
#like stdout, qr/^Usage: $CMD/, 'bare command, stdout';
#cmp_ok stderr, 'eq', '', 'bare command, stderr';
run_ok $CMD, qw(--version);
like stdout, qr/^terser [\d.]+$/, 'version, stdout';
cmp_ok stderr, 'eq', '', 'version, stderr';
run_ok $CMD, qw(--help);
like stdout, qr/^\s*Usage: terser \[options\] \[files\.\.\.\]\n/, 'help, stdout';
cmp_ok stderr, 'eq', '', 'help, stderr';
done_testing;
|
