From fdb56cff4f1da6ecf8e008b752b45b3a5e6494f8 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 3 Oct 2010 11:20:15 +0200
Subject: Merge test/run-bg into test/feh-bg.i

Not possible for test/ren-interactive, unfortunately.
---
 test/feh-bg.i        | 22 ++++++++++++++++++++++
 test/run-bg          | 14 --------------
 test/run-interactive |  2 ++
 3 files changed, 24 insertions(+), 14 deletions(-)
 delete mode 100755 test/run-bg

(limited to 'test')

diff --git a/test/feh-bg.i b/test/feh-bg.i
index 1cfb43f..eeff836 100755
--- a/test/feh-bg.i
+++ b/test/feh-bg.i
@@ -2,11 +2,14 @@
 use strict;
 use warnings;
 use 5.010;
+use autodie qw/:all/;
 
 use GD qw/:DEFAULT :cmp/;
 use Test::More tests => 70;
 use Time::HiRes qw/sleep/;
 
+my ($pid_xnest, $pid_twm);
+
 sub set_bg {
 	my ($mode, $file) = @_;
 
@@ -36,6 +39,20 @@ sub check_bg {
 	);
 }
 
+if (($pid_xnest = fork()) == 0) {
+	exec(qw( Xnest -geometry 500x500 :7 ));
+}
+
+sleep(0.5);
+
+$ENV{'DISPLAY'} = ':7';
+
+if (($pid_twm = fork()) == 0) {
+	exec('twm');
+}
+
+sleep(0.5);
+
 for my $mode (qw( center fill max scale tile )) {
 
 	set_bg($mode, 'exact/in');
@@ -51,4 +68,9 @@ for my $mode (qw( center fill max scale tile )) {
 	}
 }
 
+kill(15, $pid_twm);
+sleep(0.2);
+kill(15, $pid_xnest);
+sleep(0.2);
+
 unlink("/tmp/feh_${$}.png");
diff --git a/test/run-bg b/test/run-bg
deleted file mode 100755
index ee4dee5..0000000
--- a/test/run-bg
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/bin/sh
-
-Xnest -geometry 500x500 :7 > /dev/null 2>&1 &
-pid=${!}
-
-# Wallpaper setting requires a window manager to work reliably
-DISPLAY=:7 twm > /dev/null 2>&1 &
-
-DISPLAY=:7 prove -v test/feh-bg.i
-ret=${?}
-
-kill ${pid}
-
-exit ${ret}
diff --git a/test/run-interactive b/test/run-interactive
index 01dc773..6a3e5e3 100755
--- a/test/run-interactive
+++ b/test/run-interactive
@@ -8,4 +8,6 @@ ret=${?}
 
 kill ${pid}
 
+sleep 2
+
 exit ${ret}
-- 
cgit v1.2.3