Add another forgotten test
authorRicardo Mones <ricardo@mones.org>
Sat, 29 Dec 2018 12:30:35 +0000 (13:30 +0100)
committerRicardo Mones <ricardo@mones.org>
Sat, 29 Dec 2018 12:30:35 +0000 (13:30 +0100)
t/parse_command_line.t [new file with mode: 0644]

diff --git a/t/parse_command_line.t b/t/parse_command_line.t
new file mode 100644 (file)
index 0000000..f84a9a7
--- /dev/null
@@ -0,0 +1,40 @@
+use 5.010_000;
+use strict;
+use utf8;
+use Test::More tests => 10;
+use Test::Exception;
+use File::Spec::Functions;
+
+my ($clawsrc, $accountrc, $menurc);
+
+BEGIN {
+    $clawsrc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'clawsrc');
+    $accountrc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'accountrc');
+    $menurc = catfile ($ENV{'XDG_RUNTIME_DIR'}, 'menurc');
+};
+
+local %ENV;
+$ENV{'DISPLAY'} = ''; # avoid error dialogs
+
+require_ok ('Clawsker');
+
+use Clawsker;
+
+ok ( defined &Clawsker::parse_command_line, 'has function' );
+
+dies_ok { Clawsker::parse_command_line(['--invalid']) } 'invalid option';
+
+dies_ok { Clawsker::parse_command_line(['--alternate-config-dir']) } '--alternate-config-dir';
+
+dies_ok { Clawsker::parse_command_line(['--alternate-config-dir', '/notexisting']) } '--alternate-config-dir';
+
+lives_ok { Clawsker::parse_command_line(['--alternate-config-dir', '.']) } '--alternate-config-dir ok';
+
+lives_ok { Clawsker::parse_command_line(['--verbose']) } '--verbose';
+
+dies_ok { Clawsker::parse_command_line(['--clawsrc']) } '--clawsrc';
+
+lives_ok { Clawsker::parse_command_line(['--help']) } '--help';
+
+lives_ok { Clawsker::parse_command_line(['--version']) } '--version';
+