From 6737c5a9bf93578f78e507d6bf5318d448cd61cc Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 18 Jun 2010 12:24:07 +0200
Subject: Tests for multiwindow mode

---
 test/feh.i | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/feh.i b/test/feh.i
index a4bb374..626526d 100755
--- a/test/feh.i
+++ b/test/feh.i
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.010;
 
-use Test::More tests => 42;
+use Test::More tests => 50;
 use Time::HiRes qw/sleep/;
 use X11::GUITest qw/:ALL/;
 
@@ -203,3 +203,25 @@ ClickMouseButton(M_BTN1);
 ok($win, 'Thumbnail mode: Other window opened');
 
 feh_stop();
+
+feh_start('--multiwindow', 'test/ok.png test/ok.gif test/ok.jpg');
+ok(waitfor { FindWindowLike(qr{^feh - test/ok\.png$}) }, 'multiwindow 1/3');
+ok(waitfor { FindWindowLike(qr{^feh - test/ok\.gif$}) }, 'multiwindow 2/3');
+ok(waitfor { FindWindowLike(qr{^feh - test/ok\.jpg$}) }, 'multiwindow 3/3');
+
+($win) = FindWindowLike(qr{^feh - test/ok\.gif$});
+SetInputFocus($win);
+SendKeys('x');
+ok(waitfor { not FindWindowLike(qr{^feh - test/ok\.gif$}) }, 'win 1 closed');
+ok(FindWindowLike(qr{^feh - test/ok\.png$}), 'multiwindow 1/2');
+ok(FindWindowLike(qr{^feh - test/ok\.jpg$}), 'multiwindow 2/2');
+
+($win) = FindWindowLike(qr{^feh - test/ok\.jpg$});
+SetInputFocus($win);
+SendKeys('x');
+ok(waitfor { not FindWindowLike(qr{^feh - test/ok\.jpg$}) }, 'win 2 closed');
+
+($win) = FindWindowLike(qr{^feh - test/ok\.png$});
+SetInputFocus($win);
+SendKeys('x');
+test_no_win('all multiwindows closed');
-- 
cgit v1.2.3