This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] ext/IPC/SysV/t/ipcsysv.t using test.pl
authorDavid Landgren <david@landgren.net>
Tue, 9 May 2006 13:03:22 +0000 (15:03 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 May 2006 13:45:43 +0000 (13:45 +0000)
Message-ID: <446076FA.6010409@landgren.net>

p4raw-id: //depot/perl@28138

ext/IPC/SysV/t/sem.t

index d7f89d2..2fb594f 100755 (executable)
@@ -2,11 +2,13 @@ BEGIN {
     chdir 't' if -d 't';
 
     @INC = qw(. ../lib);
-
-    require Config; import Config;
     require 'test.pl';
 }
 
+require Config; import Config;
+
+$TEST_COUNT = 11;
+
 if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
     skip_all('IPC::SysV was not built');
 }
@@ -17,7 +19,7 @@ elsif ($Config{'d_msg'} ne 'define') {
     skip_all('$Config{d_msg} undefined');
 }
 else {
-    plan( tests => 11 );
+    plan( tests => $TEST_COUNT );
 }
 
 use IPC::SysV qw(
@@ -33,17 +35,18 @@ use IPC::SysV qw(
 );
 use IPC::Semaphore;
 
+SKIP: {
+
 my $sem =
     IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWXO | IPC_CREAT);
 if (!$sem) {
     if ($! eq 'No space left on device') {
         # "normal" error
-        diag("Bail out! cannot acquire a semaphore: $!");
-        exit(1);
+        skip( "cannot proceed: IPC::Semaphore->new() said: $!", $TEST_COUNT);
     }
     else {
         # unexpected error
-        die "semget: ",$!+0," $!\n";
+        die "IPC::Semaphore->new(): ",$!+0," $!\n";
     }
 }
 
@@ -75,3 +78,5 @@ END {
         ok($sem->remove,'release');
     }
 }
+
+} # SKIP