From 1cffd68005a6cfce7a069453f4d9142a712c6af1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 5 May 2010 19:05:13 +0200 Subject: Add a test script I know that there is one in the old SVN repo, but I think a rewrite (with an automated test script) is due. --- test/customlist | 4 ++++ test/fail.gif | 0 test/fail.jpg | 0 test/fail.png | 0 test/fail.pnm | 0 test/list | 5 +++++ test/ok.gif | Bin 0 -> 953 bytes test/ok.jpg | Bin 0 -> 354 bytes test/ok.png | Bin 0 -> 403 bytes test/ok.pnm | Bin 0 -> 269 bytes test/test.pl | 52 +++++++++++++++++++++++++++++++++++++++++++++++++ test/warning-no-loader | 4 ++++ 12 files changed, 65 insertions(+) create mode 100644 test/customlist create mode 100644 test/fail.gif create mode 100644 test/fail.jpg create mode 100644 test/fail.png create mode 100644 test/fail.pnm create mode 100644 test/list create mode 100644 test/ok.gif create mode 100644 test/ok.jpg create mode 100644 test/ok.png create mode 100644 test/ok.pnm create mode 100644 test/test.pl create mode 100644 test/warning-no-loader (limited to 'test') diff --git a/test/customlist b/test/customlist new file mode 100644 index 0000000..3595be4 --- /dev/null +++ b/test/customlist @@ -0,0 +1,4 @@ +test/ok.gif; 16; 4; list; ok.gif; 256; 953; gif; 0; 16 +test/ok.jpg; 16; 4; list; ok.jpg; 256; 354; jpeg; 0; 16 +test/ok.png; 16; 4; list; ok.png; 256; 403; png; 0; 16 +test/ok.pnm; 16; 4; list; ok.pnm; 256; 269; pnm; 0; 16 diff --git a/test/fail.gif b/test/fail.gif new file mode 100644 index 0000000..e69de29 diff --git a/test/fail.jpg b/test/fail.jpg new file mode 100644 index 0000000..e69de29 diff --git a/test/fail.png b/test/fail.png new file mode 100644 index 0000000..e69de29 diff --git a/test/fail.pnm b/test/fail.pnm new file mode 100644 index 0000000..e69de29 diff --git a/test/list b/test/list new file mode 100644 index 0000000..036b0f4 --- /dev/null +++ b/test/list @@ -0,0 +1,5 @@ +NUM FORMAT WIDTH HEIGHT PIXELS SIZE(bytes) ALPHA FILENAME +1 gif 16 16 256 953 - test/ok.gif +2 jpeg 16 16 256 354 - test/ok.jpg +3 png 16 16 256 403 X test/ok.png +4 pnm 16 16 256 269 - test/ok.pnm diff --git a/test/ok.gif b/test/ok.gif new file mode 100644 index 0000000..613264e Binary files /dev/null and b/test/ok.gif differ diff --git a/test/ok.jpg b/test/ok.jpg new file mode 100644 index 0000000..060565e Binary files /dev/null and b/test/ok.jpg differ diff --git a/test/ok.png b/test/ok.png new file mode 100644 index 0000000..2f06506 Binary files /dev/null and b/test/ok.png differ diff --git a/test/ok.pnm b/test/ok.pnm new file mode 100644 index 0000000..d62d062 Binary files /dev/null and b/test/ok.pnm differ diff --git a/test/test.pl b/test/test.pl new file mode 100644 index 0000000..69ba824 --- /dev/null +++ b/test/test.pl @@ -0,0 +1,52 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use Test::Command tests => 18; + +my $feh = 'src/feh'; +my $images = 'test/ok.* test/fail.*'; + +my ($feh_name, $feh_version) = @ARGV; + +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 $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 + +# feh --version / feh -v +$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); + +$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); diff --git a/test/warning-no-loader b/test/warning-no-loader new file mode 100644 index 0000000..0ab95a5 --- /dev/null +++ b/test/warning-no-loader @@ -0,0 +1,4 @@ +feh WARNING: test/fail.pnm - No Imlib2 loader for that file format +feh WARNING: test/fail.png - No Imlib2 loader for that file format +feh WARNING: test/fail.jpg - No Imlib2 loader for that file format +feh WARNING: test/fail.gif - No Imlib2 loader for that file format -- cgit v1.2.3