ontospy.t 992 Bytes
Newer Older
Jonas Smedegaard's avatar
Jonas Smedegaard committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
use strict;
use warnings;

use Test::More;
use Test::Command::Simple;

my $CMD = 'ontospy';

run_ok $CMD, qw/--help/;
like stdout, qr/Usage: $CMD/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/scan --help/;
like stdout, qr/Usage: $CMD scan/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/gendocs --help/;
like stdout, qr/Usage: $CMD gendocs/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/lib --help/;
like stdout, qr/Usage: $CMD lib/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/shell --help/;
like stdout, qr/Usage: $CMD shell/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/ser --help/;
like stdout, qr/Usage: $CMD ser/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

run_ok $CMD, qw/utils --help/;
like stdout, qr/Usage: $CMD utils/, 'Testing stdout';
cmp_ok stderr, 'eq', '', 'Testing stderr';

done_testing;