[perl-Gtk2/stable-1-22] Fix a test failure in GtkSocket-GtkPlug.t
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Gtk2/stable-1-22] Fix a test failure in GtkSocket-GtkPlug.t
- Date: Sun, 30 May 2010 12:33:57 +0000 (UTC)
commit ac728116df1b93ce91acac66ab57edc53c54bd6e
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date: Sun May 30 14:24:12 2010 +0200
Fix a test failure in GtkSocket-GtkPlug.t
Correct a skip count, and also use skip() instead of die() if fork()
returned a negative number.
t/GtkSocket-GtkPlug.t | 6 +-----
1 files changed, 1 insertions(+), 5 deletions(-)
---
diff --git a/t/GtkSocket-GtkPlug.t b/t/GtkSocket-GtkPlug.t
index d17e839..20944aa 100644
--- a/t/GtkSocket-GtkPlug.t
+++ b/t/GtkSocket-GtkPlug.t
@@ -30,12 +30,8 @@ SKIP: {
my $pid = fork;
-skip 'fork failed', 1 unless defined $pid;
+skip 'fork failed', 2 unless defined $pid && $pid >= 0;
-if( $pid < 0 )
-{
- die "fork failed, no use trying";
-}
if( $pid == 0 )
{
exec("$^X -Mblib -e 'my \$id = $id;\n\n" . <<EOL);
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]