[perl-Gtk2/stable-1-22] Fix a test failure in GtkSocket-GtkPlug.t



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]