Add another forgotten test
[clawsker.git] / t / parse_command_line.t
1 use 5.010_000;
2 use strict;
3 use utf8;
4 use Test::More tests => 10;
5 use Test::Exception;
6 use File::Spec::Functions;
7
8 my ($clawsrc, $accountrc, $menurc);
9
10 BEGIN {
11     $clawsrc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'clawsrc');
12     $accountrc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'accountrc');
13     $menurc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'menurc');
14 };
15
16 local %ENV;
17 $ENV{'DISPLAY'} = ''; # avoid error dialogs
18
19 require_ok ('Clawsker');
20
21 use Clawsker;
22
23 ok ( defined &Clawsker::parse_command_line, 'has function' );
24
25 dies_ok { Clawsker::parse_command_line(['--invalid']) } 'invalid option';
26
27 dies_ok { Clawsker::parse_command_line(['--alternate-config-dir']) } '--alternate-config-dir';
28
29 dies_ok { Clawsker::parse_command_line(['--alternate-config-dir', '/notexisting']) } '--alternate-config-dir';
30
31 lives_ok { Clawsker::parse_command_line(['--alternate-config-dir', '.']) } '--alternate-config-dir ok';
32
33 lives_ok { Clawsker::parse_command_line(['--verbose']) } '--verbose';
34
35 dies_ok { Clawsker::parse_command_line(['--clawsrc']) } '--clawsrc';
36
37 lives_ok { Clawsker::parse_command_line(['--help']) } '--help';
38
39 lives_ok { Clawsker::parse_command_line(['--version']) } '--version';
40