From: Ricardo Mones <ricardo@mones.org>
Date: Sat, 29 Dec 2018 12:30:35 +0000 (+0100)
Subject: Add another forgotten test
X-Git-Tag: 1.3.1~4
X-Git-Url: http://git.claws-mail.org/?p=clawsker.git;a=commitdiff_plain;h=4dd42f9508567344480e24ada422e788623e26f2

Add another forgotten test
---

diff --git a/t/parse_command_line.t b/t/parse_command_line.t
new file mode 100644
index 0000000..f84a9a7
--- /dev/null
+++ b/t/parse_command_line.t
@@ -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';
+