summaryrefslogtreecommitdiff
path: root/test/feh.t
diff options
context:
space:
mode:
authorDennis Real <github@tildepipe.org>2012-11-11 21:26:42 +0100
committerDennis Real <github@tildepipe.org>2012-11-11 21:26:42 +0100
commita3d28a957f8b4a24cbc102a8dca77bb78b568ab4 (patch)
tree4025736270638f5035e28541b7edee40ef6700bb /test/feh.t
parent0f6d9518b5a12538e4064ef1c397b62e6be61f3b (diff)
parent96d57781be7171d29c7ea0ecbbddc48ad374885c (diff)
Merge branch 'master' of git://github.com/derf/feh
Diffstat (limited to 'test/feh.t')
-rw-r--r--test/feh.t33
1 files changed, 29 insertions, 4 deletions
diff --git a/test/feh.t b/test/feh.t
index 8746362..8f415f3 100644
--- a/test/feh.t
+++ b/test/feh.t
@@ -2,13 +2,14 @@
use strict;
use warnings;
use 5.010;
-use Test::Command tests => 59;
+use Test::Command tests => 71;
$ENV{HOME} = 'test';
my $feh = "src/feh";
-my $images = 'test/ok/gif test/ok/jpg test/ok/png test/ok/pnm '
- . 'test/fail/gif test/fail/jpg test/fail/png test/fail/pnm';
+my $images_ok = 'test/ok/gif test/ok/jpg test/ok/png test/ok/pnm';
+my $images_fail = 'test/fail/gif test/fail/jpg test/fail/png test/fail/pnm';
+my $images = "${images_ok} ${images_fail}";
my $feh_name = $ENV{'PACKAGE'};
@@ -33,7 +34,7 @@ if (length($feh_name) == 0) {
}
my $re_warning =
- qr{${feh_name} WARNING: test/fail/... \- No loader for that file format\n};
+ 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};
@@ -133,3 +134,27 @@ $cmd = Test::Command->new(cmd =>
$cmd->exit_is_num(0);
$cmd->stdout_is_file('test/list/default');
$cmd->stderr_like($re_list_action);
+
+$cmd = Test::Command->new(cmd => "$feh --list --min-dimension 20x20 $images_ok");
+
+$cmd->exit_is_num(1);
+$cmd->stdout_is_eq('');
+$cmd->stderr_is_file('test/no-loadable-files');
+
+$cmd = Test::Command->new(cmd => "$feh --list --max-dimension 10x10 $images_ok");
+
+$cmd->exit_is_num(1);
+$cmd->stdout_is_eq('');
+$cmd->stderr_is_file('test/no-loadable-files');
+
+$cmd = Test::Command->new(cmd => "$feh --list --min-dimension 16x16 $images_ok");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list/default');
+$cmd->stderr_is_eq('');
+
+$cmd = Test::Command->new(cmd => "$feh --list --max-dimension 16x16 $images_ok");
+
+$cmd->exit_is_num(0);
+$cmd->stdout_is_file('test/list/default');
+$cmd->stderr_is_eq('');