summaryrefslogtreecommitdiff
path: root/test/feh.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-05-06 00:43:16 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-05-06 00:43:16 +0200
commit3717d3046c836f9c65dc1b7293134f56aea9e84c (patch)
treeb5e704386ce14ad76c87646ded765ea13e237b16 /test/feh.t
parentc70587fdda762dca3c03aa75a0185493db75607a (diff)
Use prove for tests. Might be a bit ugly right now... hm.
Diffstat (limited to 'test/feh.t')
-rw-r--r--test/feh.t83
1 files changed, 83 insertions, 0 deletions
diff --git a/test/feh.t b/test/feh.t
new file mode 100644
index 0000000..2db0db0
--- /dev/null
+++ b/test/feh.t
@@ -0,0 +1,83 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+use Test::Command tests => 48;
+
+my $feh = 'src/feh';
+my $images = 'test/ok.* test/fail.*';
+
+my ($feh_name, $feh_version) = @ENV{'PACKAGE', 'VERSION'};
+
+my $re_warning =
+ qr{${feh_name} WARNING: test/fail\.... \- No Imlib2 loader for that file format\n};
+my $re_loadable = qr{test/ok\....};
+my $re_unloadable = qr{test/fail\....};
+my $re_list_action = qr{test/ok\.... 16x16 \(${feh_name}\)};
+
+my $cmd = Test::Command->new(cmd => $feh);
+
+# Insufficient Arguments -> Usage should return failure
+$cmd->exit_is_num(1, 'missing arguments return 1');
+$cmd->stdout_is_eq('', 'missing arguments print usage (!stdout)');
+$cmd->stderr_is_eq(<<"EOF", 'missing arguments print usage (stderr)');
+${feh_name} - No loadable images specified.
+Use ${feh_name} --help for detailed usage information
+EOF
+
+$cmd = Test::Command->new(cmd => "$feh --version");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_eq("${feh_name} version ${feh_version}\n");
+$cmd->stderr_is_eq('');
+
+$cmd = Test::Command->new(cmd => "$feh --loadable $images");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_like($re_loadable);
+$cmd->stderr_is_eq('');
+
+$cmd = Test::Command->new(cmd => "$feh --unloadable $images");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_like($re_unloadable);
+$cmd->stderr_is_eq('');
+
+$cmd = Test::Command->new(cmd => "$feh --list $images");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list');
+$cmd->stderr_like($re_warning);
+
+for my $sort (qw/name filename width height pixels size format/) {
+ $cmd = Test::Command->new(cmd => "$feh --list $images --sort $sort");
+
+ $cmd->exit_is_num(0);
+ $cmd->stdout_is_file("test/list_$sort");
+ $cmd->stderr_like($re_warning);
+}
+
+$cmd = Test::Command->new(cmd => "$feh --list $images --sort format --reverse");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list_format_reverse');
+$cmd->stderr_like($re_warning);
+
+$cmd = Test::Command->new(cmd => "$feh --customlist '%f; %h; %l; %m; %n; %p; "
+ . "%s; %t; %u; %w' $images");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/customlist');
+$cmd->stderr_like($re_warning);
+
+$cmd = Test::Command->new(cmd => "$feh --list --quiet $images");
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list');
+$cmd->stderr_is_eq('');
+
+$cmd = Test::Command->new(cmd =>
+ "$feh --quiet --list --action 'echo \"%f %wx%h (%P)\" >&2' $images");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list');
+$cmd->stderr_like($re_list_action);